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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@27261 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index d60dc9d..3b7ae93 100644 (file)
--- 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 (file)
index 0000000..d5501d3
--- /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);
+}