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

   1 /*
   2    921208-1.c from the execute part of the gcc torture suite.
   3  */
   4
   5 #include <testfwk.h>
   6
   7 #ifdef __SDCC
   8 #pragma std_c99
   9 #pragma disable_warning 93
  10 #endif
  11
  12 #if !defined(__SDCC_hc08) && !defined(__SDCC_s08) && !defined(__SDCC_mos6502) && !defined(__SDCC_mos65c02) && !defined(__SDCC_pdk14) && !defined(__SDCC_pdk15)
  13 double
  14 f(double x)
  15 {
  16   return x*x;
  17 }
  18
  19 double
  20 Int(double (*f)(double), double a)
  21 {
  22   return (*f)(a);
  23 }
  24 #endif
  25
  26 void
  27 testTortureExecute (void)
  28 {
  29 #if !defined(__SDCC_hc08) && !defined(__SDCC_s08) && !defined(__SDCC_mos6502) && !defined(__SDCC_mos65c02) && !defined(__SDCC_pdk14) && !defined(__SDCC_pdk15)
  30   if (Int(&f,2.0) != 4.0)
  31     ASSERT(0);
  32   return;
  33 #endif
  34 }
  35