gcc/testsuite/gcc.dg/dfp/func-vararg-mixed.c

   1 /* C99 6.5.2.2 Function calls.
   2    Test passing varargs of the combination of decimal float types and
   3    other types.  */
   4
   5 #include <stdarg.h>
   6 #include "dfp-dbg.h"
   7
   8 /* Supposing the list of varying number of arguments is:
   9    unsigned int, _Decimal128, double, _Decimal32, _Decimal64.  */
  10
  11 static _Decimal32
  12 vararg_d32 (unsigned arg, ...)
  13 {
  14   va_list ap;
  15   _Decimal32 result;
  16
  17   va_start (ap, arg);
  18
  19   va_arg (ap, unsigned int);
  20   va_arg (ap, _Decimal128);
  21   va_arg (ap, double);
  22   result = va_arg (ap, _Decimal32);
  23
  24   va_end (ap);
  25   return result;
  26 }
  27
  28 static _Decimal32
  29 vararg_d64 (unsigned arg, ...)
  30 {
  31   va_list ap;
  32   _Decimal64 result;
  33
  34   va_start (ap, arg);
  35
  36   va_arg (ap, unsigned int);
  37   va_arg (ap, _Decimal128);
  38   va_arg (ap, double);
  39   va_arg (ap, _Decimal32);
  40   result = va_arg (ap, _Decimal64);
  41
  42   va_end (ap);
  43   return result;
  44 }
  45
  46 static _Decimal128
  47 vararg_d128 (unsigned arg, ...)
  48 {
  49   va_list ap;
  50   _Decimal128 result;
  51
  52   va_start (ap, arg);
  53
  54   va_arg (ap, unsigned int);
  55   result = va_arg (ap, _Decimal128);
  56
  57   va_end (ap);
  58   return result;
  59 }
  60
  61 static unsigned int
  62 vararg_int (unsigned arg, ...)
  63 {
  64   va_list ap;
  65   unsigned int result;
  66
  67   va_start (ap, arg);
  68
  69   result = va_arg (ap, unsigned int);
  70
  71   va_end (ap);
  72   return result;
  73 }
  74
  75 static double
  76 vararg_double (unsigned arg, ...)
  77 {
  78   va_list ap;
  79   float result;
  80
  81   va_start (ap, arg);
  82
  83   va_arg (ap, unsigned int);
  84   va_arg (ap, _Decimal128);
  85   result = va_arg (ap, double);
  86
  87   va_end (ap);
  88   return result;
  89 }
  90
  91
  92 int
  93 main ()
  94 {
  95   if (vararg_d32 (3, 0, 1.0dl, 2.0, 3.0df, 4.0dd) != 3.0df) FAILURE
  96   if (vararg_d64 (4, 0, 1.0dl, 2.0, 3.0df, 4.0dd) != 4.0dd) FAILURE
  97   if (vararg_d128 (1, 0, 1.0dl, 2.0, 3.0df, 4.0dd) != 1.0dl) FAILURE
  98   if (vararg_int (0, 0, 1.0dl, 2.0, 3.0df, 4.0dd) != 0) FAILURE
  99   if (vararg_double (2, 0, 1.0dl, 2.0, 3.0df, 4.0dd) != 2.0) FAILURE
 100
 101   FINISH
 102 }