20001017-1.c: New test.

	2000-10-17  Franz Sirl  <Franz.Sirl-kernel@lauterbach.com>

	* gcc.c-torture/execute/20001017-1.c: New test.

From-SVN: r36913

gcc/testsuite/ChangeLog

+2000-10-17  Franz Sirl  <Franz.Sirl-kernel@lauterbach.com>
+
+	* gcc.c-torture/execute/20001017-1.c: New test.
+
 2000-10-17  Joseph S. Myers  <jsm28@cam.ac.uk>
 
 	* gcc.dg/format-xopen-1.c: Update comments; adjust for checking

gcc/testsuite/gcc.c-torture/execute/20001017-1.c

+ 
+void bug (double *Cref, char transb, int m, int n, int k,
+	  double a, double *A, int fdA, double *B, int fdB,
+	  double b, double *C, int fdC)
+{
+  if (C != Cref) abort ();
+}
+ 
+int main (void)
+{
+  double A[1], B[1], C[1];
+   
+  bug (C, 'B', 1, 2, 3, 4.0, A, 5, B, 6, 7.0, C, 8);
+   
+  return 0;
+}
+