Fortran: Suppress wrong End Of File error with user defined IO.
[official-gcc.git] / gcc / testsuite / gcc.c-torture / compile / miscomp.c
blobf71173876fd4eb895e9854f862cb55db2df4cd0d
1 unsigned char foo(unsigned long);
2 int
3 main(void)
5 unsigned char AChar;
6 unsigned long ALong = 0x12345678;
8 AChar = foo(ALong);
10 __builtin_printf("AChar = %x\n",(int)AChar);
12 unsigned char
13 foo( unsigned long TheLong)
15 return( (unsigned char) (TheLong & 0xff) );