Check in new failing test.

1 files changed, 26 insertions, 3 deletions

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 );
+	}
+
 }