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

From-SVN: r21388

* gcc.c-torture/compile/980726-1.c: New test.
From-SVN: r21388
bc6bd744 · Jeffrey A Law · Jeff Law · 9616dd8d · bc6bd744 · bc6bd744
Commit bc6bd744 authored Jul 26, 1998 by Jeffrey A Law Committed by Jeff Law Jul 25, 1998
Show whitespace changes
Inline Side-by-side

Showing with 14 additions and 0 deletions

gcc/testsuite/ChangeLog
+4 -0

gcc/testsuite/gcc.c-torture/compile/980726-1.c
+10 -0

No files found.
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
+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.

--- a/gcc/testsuite/gcc.c-torture/compile/980726-1.c
+++ b/gcc/testsuite/gcc.c-torture/compile/980726-1.c
+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);
+}