gcc/testsuite/gcc.dg/compat/fnptr-by-value-1_y.c

   1 #include <stdarg.h>
   2
   3 #include "compat-common.h"
   4
   5 typedef void (*fpi)(int);
   6 typedef void (*fpd)(double);
   7
   8 extern int f1_val;
   9 extern void checki (int, int);
  10
  11 void
  12 test1a (fpi f)
  13 {
  14   (*f)(1);
  15 }
  16
  17 void
  18 test1b (fpi f, int i)
  19 {
  20   (*f)(i);
  21 }
  22
  23 void
  24 test1c (double x, fpd f)
  25 {
  26   (*f)(x);
  27 }
  28
  29 void
  30 test2a (fpi f1, fpd f2)
  31 {
  32   (*f1)(10);
  33   (*f2)(10.0);
  34 }
  35
  36 void
  37 test2b (fpi f1, fpd f2, int i)
  38 {
  39   (*f1)(i);
  40   (*f2)((double)i);
  41 }
  42
  43 void
  44 test2c (fpi f1, int i, fpd f2)
  45 {
  46   (*f1)(i);
  47   (*f2)((double)i);
  48 }
  49
  50 void
  51 test2d (int i, fpi f1, fpd f2)
  52 {
  53   (*f1)(i);
  54   (*f2)((double)i);
  55 }
  56
  57 void
  58 test2e (fpi f1, fpd f2, int i, double x)
  59 {
  60   (*f1)(i);
  61   (*f2)(x);
  62 }
  63
  64 void
  65 test2f (fpi f1, int i, fpd f2, double x)
  66 {
  67   (*f1)(i);
  68   (*f2)(x);
  69 }
  70
  71 void
  72 test2g (fpi f1, int i, double x, fpd f2)
  73 {
  74   (*f1)(i);
  75   (*f2)(x);
  76 }
  77
  78 void
  79 test2h (double x, fpd f1, fpi f2, int i)
  80 {
  81   (*f1)(x);
  82   (*f2)(i);
  83 }
  84
  85 void
  86 test2i (double x, fpd f1, int i, fpi f2)
  87 {
  88   (*f1)(x);
  89   (*f2)(i);
  90 }
  91
  92 void
  93 test2j (int i, double x, fpi f1, fpd f2)
  94 {
  95   (*f1)(i);
  96   (*f2)(x);
  97 }
  98
  99 void
 100 testva (int n, ...)
 101 {
 102   int i;
 103   va_list ap;
 104   va_start (ap, n);
 105   for (i = 0; i < n; i++)
 106     {
 107       fpi fp = va_arg (ap, fpi);
 108       (*fp)(i);
 109       checki (f1_val, i);
 110     }
 111 }