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

   1 /*
   2    pr33142.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 #include <stdlib.h>
  12
  13 int lisp_atan2(long dy, long dx) {
  14     if (dx <= 0)
  15         if (dy > 0)
  16             return abs(dx) <= abs(dy);
  17     return 0;
  18 }
  19
  20 void
  21 testTortureExecute (void)
  22 {
  23     volatile long dy = 63, dx = -77;
  24     if (lisp_atan2(dy, dx))
  25         ASSERT(0);
  26     return;
  27 }
  28