sdcc/support/regression/tests/gcc-torture-execute-loop-8.c

   1 /*
   2    loop-8.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 #pragma disable_warning 93 // Using float for double.
  12
  13 #ifndef __SDCC_pdk14 // Lackof memory
  14 double a[3] = { 0.0, 1.0, 2.0 };
  15
  16 void bar (int x, double *y)
  17 {
  18   if (x || *y != 1.0)
  19     ASSERT (0);
  20 }
  21 #endif
  22
  23 void
  24 testTortureExecute (void)
  25 {
  26 #ifndef __SDCC_pdk14 // Lackof memory
  27   double c;
  28   int d;
  29   for (d = 0; d < 3; d++)
  30   {
  31     c = a[d];
  32     if (c > 0.0) goto e;
  33   }
  34   bar(1, &c);
  35   return;
  36 e:
  37   bar(0, &c);
  38   return;
  39 #endif
  40 }