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

   1 /*
   2    20030307-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 // TODO: Enable when all ports support long long!
  12 #if !defined(__SDCC_pic14) && !defined(__SDCC_pic16)
  13
  14 /* PR optimization/8726 */
  15 /* Originator: Paul Eggert <eggert@twinsun.com> */
  16
  17 /* Verify that GCC doesn't miscompile tail calls on Sparc. */
  18
  19 int fcntl_lock(int fd, int op, long long offset, long long count, int type);
  20
  21 int vfswrap_lock(char *fsp, int fd, int op, long long offset, long long count, int type)
  22 {
  23   return fcntl_lock(fd, op, offset, count, type);
  24 }
  25
  26 int fcntl_lock(int fd, int op, long long offset, long long count, int type)
  27 {
  28   return type;
  29 }
  30 #endif
  31
  32 void
  33 testTortureExecute (void)
  34 {
  35 #if !defined(__SDCC_pic14) && !defined(__SDCC_pic16)
  36   if (vfswrap_lock (0, 1, 2, 3, 4, 5) != 5)
  37     ASSERT (0);
  38
  39   return;
  40 #endif
  41 }
  42