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