From 497e65e339edcc77bd272b97b9c1b1b5217a24b6 Mon Sep 17 00:00:00 2001 From: cnlohr Date: Sat, 17 Mar 2018 12:50:32 -0400 Subject: Check in new failing test. --- redist/test_dcl.c | 29 ++++++++++++++++++++++++++--- 1 file changed, 26 insertions(+), 3 deletions(-) (limited to 'redist') diff --git a/redist/test_dcl.c b/redist/test_dcl.c index 42f4fd6..056acdf 100644 --- a/redist/test_dcl.c +++ b/redist/test_dcl.c @@ -56,9 +56,32 @@ int main() assert(fabs(R[3][j]) < .0000001); } } - // void dclTransp( DCL_FLOAT * R, int Rc, const DCL_FLOAT * A, int Ac, int n, int m ); - // dclIdentity( A[0], MATx, 5 ); - // dclPrint( A[0], MATx, MATx, MATy ); + + printf( "The following should be an identity matrix\n" ); + dclPrint( MM[0], 3, 3, 3 ); + + + //Currently failing test... + { + FLT em1[12][20]; + FLT em2[20][12]; + FLT emo[12][12]; + int x, y; + + for( y = 0; y < 12; y++ ) + for( x = 0; x < 20; x++ ) + { + em1[y][x] = (rand()%1000)/1000.0; + em2[x][y] = (rand()%1000)/1000.0; + } + + int m = 12; + int n = 20; + int k = 12; + dcldgemm( 0, 0, m, n, k, 0.1, em1[0], 20, em2[0], 12, .1, emo[0], 12 ); + dclPrint( emo[0], 12, 12, 12 ); + } + } -- cgit v1.2.3