1 /* Tests for _FloatN / _FloatNx types: compile and execution tests for
2 NaNs. Before including this file, define WIDTH as the value N;
3 define EXT to 1 for _FloatNx and 0 for _FloatN. */
4
5 #define CONCATX(X, Y) X ## Y
6 #define CONCAT(X, Y) CONCATX (X, Y)
7 #define CONCAT3(X, Y, Z) CONCAT (CONCAT (X, Y), Z)
8 #define CONCAT4(W, X, Y, Z) CONCAT (CONCAT (CONCAT (W, X), Y), Z)
9
10 #if EXT
11 # define TYPE CONCAT3 (_Float, WIDTH, x)
12 # define CST(C) CONCAT4 (C, f, WIDTH, x)
13 # define FN(F) CONCAT4 (F, f, WIDTH, x)
14 #else
15 # define TYPE CONCAT (_Float, WIDTH)
16 # define CST(C) CONCAT3 (C, f, WIDTH)
17 # define FN(F) CONCAT3 (F, f, WIDTH)
18 #endif
19
20 #include <fenv.h>
21
22 extern void exit (int);
23 extern void abort (void);
24
25 volatile TYPE nan_cst = FN (__builtin_nan) ("");
26 volatile TYPE nans_cst = FN (__builtin_nans) ("");
27
28 int
main(void)29 main (void)
30 {
31 volatile TYPE r;
32 r = nan_cst + nan_cst;
33 if (fetestexcept (FE_INVALID))
34 abort ();
35 r = nans_cst + nans_cst;
36 if (!fetestexcept (FE_INVALID))
37 abort ();
38 exit (0);
39 }
40