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

   1 /*
   2    20001101-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 88
  10 #endif
  11
  12 typedef struct
  13 {
  14   unsigned int unchanging : 1;
  15 } struc, *rtx;
  16
  17 rtx dummy ( int *a, rtx *b)
  18 {
  19   *a = 1;
  20   *b = (rtx)7;
  21   return (rtx)1;
  22 }
  23
  24 void bogus (rtx insn, rtx thread, rtx delay_list)
  25 {
  26   rtx new_thread;
  27   int must_annul;
  28
  29   delay_list = dummy ( &must_annul, &new_thread);
  30   if (delay_list == 0 &&  new_thread )
  31     {
  32       thread = new_thread;
  33     }
  34   if (delay_list && must_annul)
  35     insn->unchanging = 1;
  36   if (new_thread != thread )
  37     ASSERT (0);
  38 }
  39
  40 void
  41 testTortureExecute (void)
  42 {
  43   struc baz;
  44   bogus (&baz, (rtx)7, 0);
  45   return;
  46 }