gcc/testsuite/gcc.dg/dfp/usual-arith-conv-bad.c

   1 /* { dg-do compile } */
   2
   3 /* N1150 5.4: Usual arithmetic conversions.
   4    C99 6.3.1.8[1] (New).
   5
   6    Test arithmetic operators between decimal float types and generic
   7    float types, which are not allowed.  */
   8
   9 extern _Decimal32 d32a, d32b;
  10 extern _Decimal64 d64a, d64b;
  11 extern _Decimal128 d128a, d128b;
  12 extern float f;
  13 extern double d;
  14 extern long double ld;
  15
  16 extern signed int __attribute__ ((vector_size (16))) vi;
  17
  18 extern _Complex float cf;
  19 extern _Complex double cd;
  20 extern _Complex long double cld;
  21 extern _Complex int ci;
  22
  23 void
  24 foo (void)
  25 {
  26   /* Mixed operations with decimal and generic float operands.  */
  27   d32a = d32b + f;      /* { dg-error "" "error.*mix operands of decimal float" } */
  28   d32a = f * d32b;      /* { dg-error "" "error.* mix operands of decimal float" } */
  29   d32a *= f;            /* { dg-error "" "error.* mix operands of decimal float" } */
  30   f += d32b;            /* { dg-error "" "error.* mix operands of decimal float" } */
  31   d64a = d32a + d;      /* { dg-error "" "error.* mix operands of decimal float" } */
  32   d64a = d * d128a;     /* { dg-error "" "error.* mix operands of decimal float" } */
  33   d64a -= d;            /* { dg-error "" "error.* mix operands of decimal float" } */
  34   d128a = ld * d128b;   /* { dg-error "" "error.* mix operands of decimal float" } */
  35   d128a = d64b + d;     /* { dg-error "" "error.* mix operands of decimal float" } */
  36   d128a *= f;           /* { dg-error "" "error.* mix operands of decimal float" } */
  37
  38   /* Mixed operations with decimal float and a vector type.  */
  39   d64a = d64b + vi;     /* { dg-error "" "error.* mix operands of decimal float" } */
  40   d32a *= vi;           /* { dg-error "" "error.* mix operands of decimal float" } */
  41   d128a = vi - d128b;   /* { dg-error "" "error.* mix operands of decimal float" } */
  42
  43   /* Mixed operations with decimal float and Complex types.  */
  44   d32a += ci;           /* { dg-error "" "error.* mix operands of decimal float" } */
  45   d64a = ci * d32a;     /* { dg-error "" "error.* mix operands of decimal float" } */
  46   cd = d64a * cd;       /* { dg-error "" "error.* mix operands of decimal float" } */
  47   d128b = cld * d128b;  /* { dg-error "" "error.* mix operands of decimal float" } */
  48   d32a = cf * d32b;     /* { dg-error "" "error.* mix operands of decimal float" } */
  49 }