sdcc/support/regression/tests/gcc-torture-execute-pr60003.c

   1 /*
   2    pr60003.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 #if !defined(__SDCC_pic14) // Unimplemented setjmp
  12 #include <setjmp.h>
  13
  14 /* PR tree-optimization/60003 */
  15 /* { dg-require-effective-target indirect_jumps } */
  16
  17 jmp_buf buf;
  18
  19 void
  20 baz (void)
  21 {
  22   longjmp (buf, 1);
  23 }
  24
  25 void
  26 bar (void)
  27 {
  28   baz ();
  29 }
  30
  31 int
  32 foo (int x)
  33 {
  34   volatile int a = 0;
  35
  36   if (setjmp (buf) == 0)
  37     {
  38       while (1)
  39         {
  40           a = 1;
  41           bar ();  /* OK if baz () instead */
  42         }
  43     }
  44   else
  45     {
  46       if (a == 0)
  47         return 0;
  48       else
  49         return x;
  50     }
  51 }
  52 #endif
  53
  54 void
  55 testTortureExecute (void)
  56 {
  57 #if !defined(__SDCC_pic14) // Unimplemented setjmp
  58   if (foo (1) == 0)
  59     ASSERT (0);
  60 #endif
  61 }
  62