980827-1.c: New test.

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

From-SVN: r22042

gcc/testsuite/ChangeLog

+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.

gcc/testsuite/gcc.dg/980827-1.c

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