1/* Testcase for PR fortran/9974. This was a miscompilation of the g77 2 front-end caused by the jump bypassing optimizations not handling 3 instructions inserted on CFG edges. */ 4 5extern void abort (); 6 7int bar () 8{ 9 return 1; 10} 11 12void foo (int x) 13{ 14 unsigned char error = 0; 15 16 if (! (error = ((x == 0) || bar ()))) 17 bar (); 18 if (! error) 19 abort (); 20} 21 22int main() 23{ 24 foo (1); 25 return 0; 26} 27 28