* gcc.c-torture/compile/980726-1.c: New test.
From-SVN: r21388
This commit is contained in:
parent
9616dd8d5f
commit
bc6bd744c5
@ -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.
|
||||
|
10
gcc/testsuite/gcc.c-torture/compile/980726-1.c
Normal file
10
gcc/testsuite/gcc.c-torture/compile/980726-1.c
Normal 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);
|
||||
}
|
Loading…
Reference in New Issue
Block a user