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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 0859351eb8baf22d88b943d4f3b662ca622e3233..891e533e0a486a8ebecb4f84d88fc8fa0b8915ce 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+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

diff --git a/gcc/testsuite/gcc.c-torture/execute/20001017-1.c b/gcc/testsuite/gcc.c-torture/execute/20001017-1.c
new file mode 100644 (file)
index 0000000..f55886f
--- /dev/null
+++ b/gcc/testsuite/gcc.c-torture/execute/20001017-1.c
@@ -0,0 +1,17 @@
+ 
+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;
+}
+