From: Franz Sirl <Franz.Sirl-kernel@lauterbach.com>
Date: Tue, 17 Oct 2000 22:04:51 +0000 (+0000)
Subject: 20001017-1.c: New test.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=34137553f95c4c36d1f601101becf90afc68d21e;p=gcc.git

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 0859351eb8b..891e533e0a4 100644
--- 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
index 00000000000..f55886f4acd
--- /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;
+}
+