* gcc.c-torture/compile/980726-1.c: New test.

From-SVN: r21388

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 313b11e10f236f1e635a6e4eb3be43928486fd1d..b69eebd4653d40cac2a5acf97d0efa0f8ab88e8d 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+Sun Jul 26 01:05:02 1998  Jeffrey A Law  (law@cygnus.com)
+
+       * gcc.c-torture/compile/980726-1.c: New test.
+
 1998-07-25  Dave Love  <d.love@dl.ac.uk>
 
        * g77.f-torture/execute/io0.f: New test.

diff --git a/gcc/testsuite/gcc.c-torture/compile/980726-1.c b/gcc/testsuite/gcc.c-torture/compile/980726-1.c
new file mode 100644 (file)
index 0000000..3d4daa2
--- /dev/null
+++ b/gcc/testsuite/gcc.c-torture/compile/980726-1.c
@@ -0,0 +1,10 @@
+static __inline__ unsigned char BCD(unsigned char binval)
+{
+  if (binval > 99) return 0x99;
+  return (((binval/10) << 4) | (binval%10));
+}
+
+void int1a(unsigned char i)
+{
+    (*((unsigned char *)1)) = BCD(i);
+}