From: Jeffrey A Law <law@cygnus.com>
Date: Sun, 30 May 1999 23:40:07 +0000 (+0000)
Subject: * gcc.c-torture/execute/990531-1.c: New test.
X-Git-Tag: releases/libgcj-2.95.0~309
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=71fb00565269ddc7398243b36f4615f601135e57;p=thirdparty%2Fgcc.git

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

From-SVN: r27261
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index d60dc9d8eb96..3b7ae933f1d5 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+Mon May 31 00:34:51 1999  Jeffrey A Law  (law@cygnus.com)
+
+	* gcc.c-torture/execute/990531-1.c: New test.
+
 Thu May 27 02:38:36 1999  Franz Sirl <Franz.Sirl-kernel@lauterbach.com>
 
 	* gcc.c-torture/compile/990527-1.c: New test.
diff --git a/gcc/testsuite/gcc.c-torture/execute/990531-1.c b/gcc/testsuite/gcc.c-torture/execute/990531-1.c
new file mode 100644
index 000000000000..d5501d3a7d74
--- /dev/null
+++ b/gcc/testsuite/gcc.c-torture/execute/990531-1.c
@@ -0,0 +1,23 @@
+   unsigned long bad(int reg, unsigned long inWord)
+   {
+       union {
+           unsigned long word;
+           unsigned char byte[4];
+       } data;
+
+       data.word = inWord;
+       data.byte[reg] = 0;
+
+       return data.word;
+   }
+
+main()
+{
+  /* XXX This test could be generalized.  */
+  if (sizeof (long) != 4)
+    exit (0);
+
+  if (bad (0, 0xdeadbeef) == 0xdeadbeef)
+    abort ();
+  exit (0);
+}