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

   1 /*
   2    20001026-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 #endif
  10
  11 #include <string.h>
  12
  13 // TODO: Enable when sdcc supports struct!
  14 #if 0
  15 typedef struct {
  16   long r[(19 + sizeof (long))/(sizeof (long))];
  17 } realvaluetype;
  18
  19 typedef void *tree;
  20
  21 static realvaluetype
  22 real_value_from_int_cst (tree x, tree y)
  23 {
  24   realvaluetype r;
  25   int i;
  26   for (i = 0; i < sizeof(r.r)/sizeof(long); ++i)
  27     r.r[i] = -1;
  28   return r;
  29 }
  30
  31 struct brfic_args
  32 {
  33   tree type;
  34   tree i;
  35   realvaluetype d;
  36 };
  37
  38 static void
  39 build_real_from_int_cst_1 (data)
  40      void * data;
  41 {
  42   struct brfic_args *args = (struct brfic_args *) data;
  43   args->d = real_value_from_int_cst (args->type, args->i);
  44 }
  45 #endif
  46
  47 void
  48 testTortureExecute (void)
  49 {
  50 #if 0
  51   struct brfic_args args;
  52
  53   memset (&args, 0, sizeof(args));
  54   build_real_from_int_cst_1 (&args);
  55
  56   if (args.d.r[0] == 0)
  57     ASSERT (0);
  58   return;
  59 #endif
  60 }
  61