980827-1.c: New test.

        * gcc.dg/980827-1.c: New test.
New test from Geoff Keating

From-SVN: r22042

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 5d0537fbd92783ac6e051af51b5861eb729c8645..fa4204425bbc6e9810388ed7f883407f89fd5a63 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+Thu Aug 27 23:59:18 1998  Jeffrey A Law  (law@cygnus.com)
+
+       * gcc.dg/980827-1.c: New test.
+
 Tue Aug 25 19:42:13 1998  Jeffrey A Law  (law@cygnus.com)
 
        * gcc.c-torture/compile/980825-1.c: New test.

diff --git a/gcc/testsuite/gcc.dg/980827-1.c b/gcc/testsuite/gcc.dg/980827-1.c
new file mode 100644 (file)
index 0000000..33a496b
--- /dev/null
+++ b/gcc/testsuite/gcc.dg/980827-1.c
@@ -0,0 +1,24 @@
+/* { dg-do run { target powerpc*-*-* } } */
+/* { dg-options -O2 } */
+
+void splat (double d);
+
+int main(void)
+{
+  splat(0);
+  if (dval == 0)
+    abort();
+  exit (0);
+}
+
+void splat (double d)
+{
+  union {
+    double f;
+    unsigned int l[2];
+  } u;
+  
+  u.f = d + d;
+  u.l[1] |= 1;
+  asm volatile ("stfd %0,dval@sdarel(13)" : : "f" (u.f));
+}