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 
5 extern void abort ();
6 
bar()7 int bar ()
8 {
9   return 1;
10 }
11 
foo(int x)12 void 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 
main()22 int main()
23 {
24   foo (1);
25   return 0;
26 }
27 
28