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

From-SVN: r21388
This commit is contained in:
Jeffrey A Law 1998-07-26 00:05:36 +00:00 committed by Jeff Law
parent 9616dd8d5f
commit bc6bd744c5
2 changed files with 14 additions and 0 deletions

View File

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

View File

@ -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);
}