1  /* { dg-options "-O0" } */
       2  
       3  /* N1150 5.4: Usual arithmetic conversions.
       4     C99 6.3.1.8[1] (New).
       5  
       6     Test arithmetic operators with different decimal float types, and
       7     between decimal float types and integer types.  */
       8  
       9  #include "dfp-dbg.h"
      10  
      11  volatile _Decimal32 d32a, d32b, d32c;
      12  volatile _Decimal64 d64a, d64b, d64c;
      13  volatile _Decimal128 d128a, d128b, d128c;
      14  volatile int i;
      15  
      16  void
      17  init ()
      18  {
      19    d32b = 123.456e94df;
      20    d64b = 12.3456789012345e383dd;
      21    d128b = 12345.6789012345678901e4000dl;
      22  
      23    d32c = 1.3df;
      24    d64c = 1.2dd;
      25    d128c = 1.1dl;
      26  
      27    i = 2;
      28  }
      29  
      30  int
      31  main ()
      32  {
      33    init ();
      34  
      35    /* Usual arithmetic conversions between decimal float types; addition.  */
      36    d128a = d128b + d32b;
      37    if (d128a < d128b)
      38      FAILURE
      39    d128a = d32b + d128b;
      40    if (d128a < d128b)
      41      FAILURE
      42    d128a = d128b + d64b;
      43    if (d128a < d128b)
      44      FAILURE
      45    d128a = d64b + d128b;
      46    if (d128a < d128b)
      47      FAILURE
      48    d64a = d64b + d32b;
      49    if (d64a < d64b)
      50      FAILURE
      51    d64a = d32b + d64b;
      52    if (d64a < d64b)
      53      FAILURE
      54  
      55    /* Usual arithmetic conversions between decimal float types;
      56       multiplication.  */
      57    d128a = d128b * d32c;
      58    if (d128a < d128b)
      59      FAILURE
      60    d128a = d32c * d128b;
      61    if (d128a < d128b)
      62      FAILURE
      63    d128a = d128b * d64c;
      64    if (d128a < d128b)
      65      FAILURE
      66    d128a = d64c * d128b;
      67    if (d128a < d128b)
      68      FAILURE
      69    d64a = d64b * d32c;
      70    if (d64a < d64b)
      71      FAILURE
      72    d64a = d32c * d64b;
      73    if (d64a < d64b)
      74      FAILURE
      75  
      76    /* Usual arithmetic conversions between decimal float and integer types.  */
      77    d32a = d32c + i;
      78    if (d32a != d32c + 2.0df)
      79      FAILURE
      80    d32a = d32c - i;
      81    if (d32a != d32c - 2.0df)
      82      FAILURE
      83    d32a = i * d32c;
      84    if (d32a != d32c + d32c)
      85      FAILURE
      86    d32a = d32c / i;
      87    if (d32a != d32c / 2.0df)
      88      FAILURE
      89  
      90    d64a = i + d64c;
      91    if (d64a != d64c + 2.0dd)
      92      FAILURE
      93    d64a = d64c - i;
      94    if (d64a != d64c - 2.0dd)
      95      FAILURE
      96    d64a = d64c * i;
      97    if (d64a != d64c + d64c)
      98      FAILURE
      99    d64a = d64c / i;
     100    if (d64a != d64c / 2.0dd)
     101      FAILURE
     102  
     103    d128a = d128c + i;
     104    if (d128a != d128c + 2.0dl)
     105      FAILURE
     106    d128a = d128c - i;
     107    if (d128a != d128c - 2.0dl)
     108      FAILURE
     109    d128a = i * d128c;
     110    if (d128a != d128c + d128c)
     111      FAILURE
     112    d128a = d128c / i;
     113    if (d128a != d128c / 2.0dl)
     114      FAILURE
     115  
     116    FINISH
     117  }