old-autovect-branch/gcc/testsuite/gcc.dg/compat/fnptr-by-value-1_x.c

   1 #include "compat-common.h"
   2
   3 #ifdef SKIP_VA
   4 const int test_va = 0;
   5 #else
   6 const int test_va = 1;
   7 #endif
   8
   9 typedef void (*fpi)(int);
  10 typedef void (*fpd)(double);
  11
  12 extern void test1a (fpi);
  13 extern void test1b (fpi, int);
  14 extern void test1c (double, fpd);
  15 extern void test2a (fpi, fpd);
  16 extern void test2b (fpi, fpd, int);
  17 extern void test2c (fpi, int, fpd);
  18 extern void test2d (int, fpi, fpd);
  19 extern void test2e (fpi, fpd, int, double);
  20 extern void test2f (fpi, int, fpd, double);
  21 extern void test2g (fpi, int, double, fpd);
  22 extern void test2h (double, fpd, fpi, int);
  23 extern void test2i (double, fpd, int, fpi);
  24 extern void test2j (int, double, fpi, fpd);
  25 extern void testva (int, ...);
  26
  27 int f1_val;
  28 double f2_val;
  29
  30 void f1 (int i) { f1_val = i; }
  31 void f2 (double x) { f2_val = x; }
  32
  33 void
  34 checki (int x, int v)
  35 {
  36   if (x != v)
  37     DEBUG_CHECK
  38 }
  39
  40 void
  41 checkd (double x, double v)
  42 {
  43   if (x != v)
  44     DEBUG_CHECK
  45 }
  46
  47 void
  48 testit (void)
  49 {
  50   DEBUG_FPUTS ("test1a: ");
  51   test1a (f1);
  52   checki (f1_val, 1);
  53   DEBUG_NL;
  54   DEBUG_FPUTS ("test1b: ");
  55   test1b (f1, 2);
  56   checki (f1_val, 2);
  57   DEBUG_NL;
  58   DEBUG_FPUTS ("test1c: ");
  59   test1c (3.0, f2);
  60   checkd (f2_val, 3.0);
  61   DEBUG_NL;
  62   DEBUG_FPUTS ("test2a: ");
  63   test2a (f1, f2);
  64   checki (f1_val, 10);
  65   checkd (f2_val, 10.0);
  66   DEBUG_NL;
  67   DEBUG_FPUTS ("test2b: ");
  68   test2b (f1, f2, 11);
  69   checki (f1_val, 11);
  70   checkd (f2_val, 11.0);
  71   DEBUG_NL;
  72   DEBUG_FPUTS ("test2c: ");
  73   test2c (f1, 12, f2);
  74   checki (f1_val, 12);
  75   checkd (f2_val, 12.0);
  76   DEBUG_NL;
  77   DEBUG_FPUTS ("test2d: ");
  78   test2d (13, f1, f2);
  79   checki (f1_val, 13);
  80   checkd (f2_val, 13.0);
  81   DEBUG_NL;
  82   DEBUG_FPUTS ("test2e: ");
  83   test2e (f1, f2, 14, 15.0);
  84   checki (f1_val, 14);
  85   checkd (f2_val, 15.0);
  86   DEBUG_NL;
  87   DEBUG_FPUTS ("test2f: ");
  88   test2f (f1, 16, f2, 17.0);
  89   checki (f1_val, 16);
  90   checkd (f2_val, 17.0);
  91   DEBUG_NL;
  92   DEBUG_FPUTS ("test2g: ");
  93   test2g (f1, 18, 19.0, f2);
  94   checki (f1_val, 18);
  95   checkd (f2_val, 19.0);
  96   DEBUG_NL;
  97   DEBUG_FPUTS ("test2h: ");
  98   test2h (20.0, f2, f1, 21);
  99   checkd (f2_val, 20.0);
 100   checki (f1_val, 21);
 101   DEBUG_NL;
 102   DEBUG_FPUTS ("test2i: ");
 103   test2i (22.0, f2, 23, f1);
 104   checkd (f2_val, 22.0);
 105   checki (f1_val, 23);
 106   DEBUG_NL;
 107   DEBUG_FPUTS ("test2j: ");
 108   test2j (24, 25.0, f1, f2);
 109   checki (f1_val, 24);
 110   checkd (f2_val, 25.0);
 111   if (test_va)
 112     {
 113       DEBUG_NL;
 114       DEBUG_FPUTS ("testva: ");
 115       testva (1, f1);
 116       DEBUG_NL;
 117       DEBUG_FPUTS ("        ");
 118       testva (2, f1, f1);
 119       DEBUG_NL;
 120       DEBUG_FPUTS ("        ");
 121       testva (3, f1, f1, f1);
 122       DEBUG_NL;
 123       DEBUG_FPUTS ("        ");
 124       testva (4, f1, f1, f1, f1);
 125       DEBUG_NL;
 126       DEBUG_FPUTS ("        ");
 127       testva (5, f1, f1, f1, f1, f1);
 128       DEBUG_NL;
 129       DEBUG_FPUTS ("        ");
 130       testva (6, f1, f1, f1, f1, f1, f1);
 131       DEBUG_NL;
 132       DEBUG_FPUTS ("        ");
 133       testva (7, f1, f1, f1, f1, f1, f1, f1);
 134       DEBUG_NL;
 135       DEBUG_FPUTS ("        ");
 136       testva (8, f1, f1, f1, f1, f1, f1, f1, f1);
 137       DEBUG_NL;
 138       DEBUG_FPUTS ("        ");
 139       testva (9, f1, f1, f1, f1, f1, f1, f1, f1, f1);
 140       DEBUG_NL;
 141       DEBUG_FPUTS ("        ");
 142       testva (10, f1, f1, f1, f1, f1, f1, f1, f1, f1, f1);
 143       DEBUG_NL;
 144       DEBUG_FPUTS ("        ");
 145       testva (11, f1, f1, f1, f1, f1, f1, f1, f1, f1, f1, f1);
 146       DEBUG_NL;
 147       DEBUG_FPUTS ("        ");
 148       testva (12, f1, f1, f1, f1, f1, f1, f1, f1, f1, f1, f1, f1);
 149     }
 150   DEBUG_NL;
 151 }
 152
 153 void
 154 fnptr_by_value_1_x ()
 155 {
 156   DEBUG_INIT
 157   testit ();
 158   DEBUG_FINI
 159
 160   if (fails != 0)
 161     abort ();
 162 }