gcc/testsuite/gcc.dg/dfp/func-struct.c

   1 /* C99 6.5.2.2 Function calls.
   2    Test structure passing and return values involving decimal floating
   3    point types.  */
   4
   5 #include "dfp-dbg.h"
   6
   7 struct example
   8 {
   9   _Decimal128 d128;
  10   char dummy1;
  11   _Decimal64 d64;
  12   char dummy2;
  13   _Decimal32 d32;
  14 } nums = { 1.0dl, 'a', 2.0dd, 'b', 3.0df };
  15
  16 _Decimal32
  17 d32_field (struct example s)
  18 {
  19   return s.d32;
  20 }
  21
  22 _Decimal64
  23 d64_field (struct example s)
  24 {
  25   return s.d64;
  26 }
  27
  28 _Decimal128
  29 d128_field (struct example s)
  30 {
  31   return s.d128;
  32 }
  33
  34 char
  35 dummy1_field (struct example s)
  36 {
  37   return s.dummy1;
  38 }
  39
  40 char
  41 dummy2_field (struct example s)
  42 {
  43   return s.dummy2;
  44 }
  45
  46 _Decimal32
  47 ptr_d32_field (struct example *s)
  48 {
  49   return s->d32;
  50 }
  51
  52 _Decimal64
  53 ptr_d64_field (struct example *s)
  54 {
  55   return s->d64;
  56 }
  57
  58 _Decimal128
  59 ptr_d128_field (struct example *s)
  60 {
  61   return s->d128;
  62 }
  63
  64 char
  65 ptr_dummy1_field (struct example *s)
  66 {
  67   return s->dummy1;
  68 }
  69
  70 char
  71 ptr_dummy2_field (struct example *s)
  72 {
  73   return s->dummy2;
  74 }
  75
  76 \f
  77 int
  78 main ()
  79 {
  80   if (d32_field (nums) != 3.0df) FAILURE
  81   if (d64_field (nums) != 2.0dd) FAILURE
  82   if (d128_field (nums) != 1.0dl) FAILURE
  83   if (dummy1_field (nums) != 'a') FAILURE
  84   if (dummy2_field (nums) != 'b') FAILURE
  85
  86   if (ptr_d32_field (&nums) != 3.0df) FAILURE
  87   if (ptr_d64_field (&nums) != 2.0dd) FAILURE
  88   if (ptr_d128_field (&nums) != 1.0dl) FAILURE
  89   if (ptr_dummy1_field (&nums) != 'a') FAILURE
  90   if (ptr_dummy2_field (&nums) != 'b') FAILURE
  91
  92   FINISH
  93 }