gcc/testsuite/gcc.dg/dfp/cast-bad.c

   1 /* { dg-do compile } */
   2
   3 /* C99 6.5.4 Cast operators.
   4    Test invalid casts involving decimal float.  */
   5
   6 struct s { _Decimal32 d32; } sv;
   7 union u { _Decimal32 d32; } uv;
   8
   9 _Decimal32 d32;
  10 _Decimal64 d64;
  11 _Decimal128 d128;
  12
  13 _Decimal32* d32p;
  14 _Decimal64* d64p;
  15 _Decimal128* d128p;
  16
  17 void
  18 f (void)
  19 {
  20   (_Decimal32 []) d32p; /* { dg-error "cast specifies array type" } */
  21   (_Decimal32 ()) d32p; /* { dg-error "cast specifies function type" } */
  22   (_Decimal64 []) d64p; /* { dg-error "cast specifies array type" } */
  23   (_Decimal64 ()) d64p; /* { dg-error "cast specifies function type" } */
  24   (_Decimal128 []) d128p; /* { dg-error "cast specifies array type" } */
  25   (_Decimal128 ()) d128p; /* { dg-error "cast specifies function type" } */
  26
  27   (struct s) d32; /* { dg-error "conversion to non-scalar type requested" } */
  28   (union u) d32;
  29   (struct s) d64; /* { dg-error "conversion to non-scalar type requested" } */
  30   (union u) d64; /* { dg-error "cast to union type from type not present in union" } */
  31   (struct s) d128; /* { dg-error "conversion to non-scalar type requested" } */
  32   (union u) d128; /* { dg-error "cast to union type from type not present in union" } */
  33
  34   (_Decimal32) sv; /* { dg-error "aggregate value used where a floating-point was expected" } */
  35   (_Decimal32) uv; /* { dg-error "aggregate value used where a floating-point was expected" } */
  36   (_Decimal64) sv; /* { dg-error "aggregate value used where a floating-point was expected" } */
  37   (_Decimal64) uv; /* { dg-error "aggregate value used where a floating-point was expected" } */
  38   (_Decimal128) sv; /* { dg-error "aggregate value used where a floating-point was expected" } */
  39   (_Decimal128) uv; /* { dg-error "aggregate value used where a floating-point was expected" } */
  40 }