sdcc/support/regression/tests/gcc-torture-execute-20030401-1.c

   1 /*
   2    20030401-1.c from the execute part of the gcc torture tests.
   3  */
   4
   5 #include <testfwk.h>
   6
   7 #ifdef __SDCC
   8 #pragma std_c99
   9 #endif
  10
  11 /* Testcase for PR fortran/9974.  This was a miscompilation of the g77
  12    front-end caused by the jump bypassing optimizations not handling
  13    instructions inserted on CFG edges.  */
  14
  15 int bar ()
  16 {
  17   return 1;
  18 }
  19
  20 void foo (int x)
  21 {
  22   unsigned char error = 0;
  23
  24   if (! (error = ((x == 0) || bar ())))
  25     bar ();
  26   if (! error)
  27     ASSERT (0);
  28 }
  29
  30 void
  31 testTortureExecute (void)
  32 {
  33   foo (1);
  34   return;
  35 }
  36