]>
git.ipfire.org Git - thirdparty/gcc.git/blob - gcc/testsuite/gcc.dg/compat/scalar-return-4_x.c
1 #include "compat-common.h"
3 #define T(NAME, TYPE, INITVAL) \
6 extern void init##NAME (TYPE *p, TYPE v); \
7 extern void checkg##NAME (void); \
8 extern TYPE test0##NAME (void); \
9 extern TYPE test1##NAME (TYPE); \
12 check##NAME (TYPE x, TYPE v) \
22 DEBUG_FPUTS (#NAME); \
23 DEBUG_FPUTS (" init: "); \
24 init##NAME (&g01##NAME, 1); \
27 DEBUG_FPUTS (#NAME); \
28 DEBUG_FPUTS (" test0: "); \
29 rslt = test0##NAME (); \
30 check##NAME (rslt, g01##NAME); \
32 DEBUG_FPUTS (#NAME); \
33 DEBUG_FPUTS (" test1: "); \
34 rslt = test1##NAME (g01##NAME); \
35 check##NAME (rslt, g01##NAME); \
39 T(cc
, _Complex
char, (0,1))
40 T(cs
, _Complex
short, (1,2))
41 T(cf
, _Complex
float, (1.0,2.0))
48 #define T(NAME) testit##NAME ();