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

   1 /*
   2    20010409-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 #pragma disable_warning 85
  10 #endif
  11
  12 #if !defined(__SDCC_pic14) // Unimplemented setjmp
  13 #include <string.h>
  14 #include <setjmp.h>
  15
  16 #ifndef __SDCC_pdk14 // Lack of memory
  17 jmp_buf try;
  18
  19 typedef struct A {
  20   int a, b;
  21 } A;
  22
  23 typedef struct B {
  24   struct A **a;
  25   int b;
  26 } B;
  27
  28 A *a;
  29 int b = 1, c;
  30 B d[1];
  31
  32 void foo (A *x, const char *y, int z)
  33 {
  34   c = y[4] + z * 25;
  35 }
  36
  37 A *bar (const char *v, int w, int x, const char *y, int z)
  38 {
  39   if (w)
  40     ASSERT (0);
  41   longjmp(try, 1);
  42 }
  43
  44 void test (const char *x, int *y)
  45 {
  46   foo (d->a[d->b], "test", 200);
  47   d->a[d->b] = bar (x, b ? 0 : 65536, strlen (x), "test", 201);
  48   d->a[d->b]->a++;
  49   if (y)
  50     d->a[d->b]->b = *y;
  51 }
  52 #endif
  53 #endif
  54
  55 void
  56 testTortureExecute (void)
  57 {
  58 #ifndef __SDCC_pdk14 // Lack of memory
  59 #if !defined(__SDCC_pic14) // Unimplemented setjmp
  60   if (setjmp(try) == 0)
  61   {
  62     d->b = 0;
  63     d->a = &a;
  64     test ("", 0);
  65   }
  66 #endif
  67 #endif
  68 }
  69