1  /* C99 6.5.2.2 Function calls.
       2     Test passing array elements involving decimal floating point types. */
       3  
       4  #include "dfp-dbg.h"
       5  
       6  /* A handful of functions that return the Nth _Decimal32 argument of
       7     an incoming array.  */
       8  
       9  _Decimal32
      10  arg0_32 (_Decimal32 args[])
      11  {
      12    return args[0];
      13  }
      14  
      15  _Decimal32
      16  arg1_32 (_Decimal32 args[])
      17  {
      18    return args[1];
      19  }
      20  
      21  _Decimal32
      22  arg2_32 (_Decimal32 args[])
      23  {
      24    return args[2];
      25  }
      26  
      27  _Decimal32
      28  arg3_32 (_Decimal32 args[])
      29  {
      30    return args[3];
      31  }
      32  
      33  _Decimal32
      34  arg4_32 (_Decimal32 args[])
      35  {
      36    return args[4];
      37  }
      38  
      39  _Decimal32
      40  arg5_32 (_Decimal32 args[])
      41  {
      42    return args[5];
      43  }
      44  	
      45  
      46  /* A handful of functions that return the Nth _Decimal64 argument of
      47     an incoming array.  */
      48  
      49  _Decimal64
      50  arg0_64 (_Decimal64 args[])
      51  {
      52    return args[0];
      53  }
      54  
      55  _Decimal64
      56  arg1_64 (_Decimal64 args[])
      57  {
      58    return args[1];
      59  }
      60  
      61  _Decimal64
      62  arg2_64 (_Decimal64 args[])
      63  {
      64    return args[2];
      65  }
      66  
      67  _Decimal64
      68  arg3_64 (_Decimal64 args[])
      69  {
      70    return args[3];
      71  }
      72  
      73  _Decimal64
      74  arg4_64 (_Decimal64 args[])
      75  {
      76    return args[4];
      77  }
      78  
      79  _Decimal64
      80  arg5_64 (_Decimal64 args[])
      81  {
      82    return args[5];
      83  }
      84  
      85  
      86  /* A handful of functions that return the Nth _Decimal128 argument of
      87     an incoming array.  */
      88  
      89  _Decimal128
      90  arg0_128 (_Decimal128 args[])
      91  {
      92    return args[0];
      93  }
      94  
      95  _Decimal128
      96  arg1_128 (_Decimal128 args[])
      97  {
      98    return args[1];
      99  }
     100  
     101  _Decimal128
     102  arg2_128 (_Decimal128 args[])
     103  {
     104    return args[2];
     105  }
     106  
     107  _Decimal128
     108  arg3_128 (_Decimal128 args[])
     109  {
     110    return args[3];
     111  }
     112  
     113  _Decimal128
     114  arg4_128 (_Decimal128 args[])
     115  {
     116    return args[4];
     117  }
     118  
     119  _Decimal128
     120  arg5_128 (_Decimal128 args[])
     121  {
     122    return args[5];
     123  }
     124  
     125  
     126  int main()
     127  {
     128    _Decimal32 d32[] = { 0.0df, 1.0df, 2.0df, 3.0df, 4.0df, 5.0df };
     129    _Decimal64 d64[] = { 0.0dd, 1.0dd, 2.0dd, 3.0dd, 4.0dd, 5.0dd };
     130    _Decimal128 d128[] = { 0.0dl, 1.0dl, 2.0dl, 3.0dl, 4.0dl, 5.0dl };
     131  
     132    /* _Decimal32 variants.  */
     133    if (arg0_32 (d32) != 0.0df) FAILURE
     134    if (arg1_32 (d32) != 1.0df) FAILURE
     135    if (arg2_32 (d32) != 2.0df) FAILURE
     136    if (arg3_32 (d32) != 3.0df) FAILURE
     137    if (arg4_32 (d32) != 4.0df) FAILURE
     138    if (arg5_32 (d32) != 5.0df) FAILURE
     139  
     140    /* _Decimal64 variants.  */
     141    if (arg0_64 (d64) != 0.0dd) FAILURE
     142    if (arg1_64 (d64) != 1.0dd) FAILURE
     143    if (arg2_64 (d64) != 2.0dd) FAILURE
     144    if (arg3_64 (d64) != 3.0dd) FAILURE
     145    if (arg4_64 (d64) != 4.0dd) FAILURE
     146    if (arg5_64 (d64) != 5.0dd) FAILURE
     147  
     148    /* _Decimal128 variants.  */
     149    if (arg0_128 (d128) != 0.0dl) FAILURE
     150    if (arg1_128 (d128) != 1.0dl) FAILURE
     151    if (arg2_128 (d128) != 2.0dl) FAILURE
     152    if (arg3_128 (d128) != 3.0dl) FAILURE
     153    if (arg4_128 (d128) != 4.0dl) FAILURE
     154    if (arg5_128 (d128) != 5.0dl) FAILURE
     155  
     156    FINISH
     157  }