1: #include <stdio.h>
    2: #include <tgmath.h>
    3: 
    4: 
    5: int
    6: main (void)
    7: {
    8:   int retval = 0;
    9: 
   10: #define TEST(expr, res) \
   11:   if (sizeof (expr) != res)                                                   \
   12:     {                                                                         \
   13:       printf ("sizeof(%s) == %zu, expected %zu\n", #expr,                     \
   14:               sizeof (expr), (size_t) (res));                                \
   15:       retval = 1;                                                                     \
   16:     }
   17: 
   18:   TEST (creal (1.0), sizeof (double));
   19:   TEST (creal (1.0 + 1.0i), sizeof (double));
   20:   TEST (creal (1.0l), sizeof (long double));
   21:   TEST (creal (1.0l + 1.0li), sizeof (long double));
   22:   TEST (creal (1.0f), sizeof (float));
   23:   TEST (creal (1.0f + 1.0fi), sizeof (float));
   24: 
   25:   TEST (cimag (1.0), sizeof (double));
   26:   TEST (cimag (1.0 + 1.0i), sizeof (double));
   27:   TEST (cimag (1.0l), sizeof (long double));
   28:   TEST (cimag (1.0l + 1.0li), sizeof (long double));
   29:   TEST (cimag (1.0f), sizeof (float));
   30:   TEST (cimag (1.0f + 1.0fi), sizeof (float));
   31: 
   32:   TEST (fabs (1.0), sizeof (double));
   33:   TEST (fabs (1.0 + 1.0i), sizeof (double));
   34:   TEST (fabs (1.0l), sizeof (long double));
   35:   TEST (fabs (1.0l + 1.0li), sizeof (long double));
   36:   TEST (fabs (1.0f), sizeof (float));
   37:   TEST (fabs (1.0f + 1.0fi), sizeof (float));
   38: 
   39:   TEST (carg (1.0), sizeof (double));
   40:   TEST (carg (1.0 + 1.0i), sizeof (double));
   41:   TEST (carg (1.0l), sizeof (long double));
   42:   TEST (carg (1.0l + 1.0li), sizeof (long double));
   43:   TEST (carg (1.0f), sizeof (float));
   44:   TEST (carg (1.0f + 1.0fi), sizeof (float));
   45: 
   46:   return retval;
   47: }