gcc/testsuite/gcc.dg/dfp/Wbad-function-cast-1.c

   1 /* Test operation of -Wbad-function-cast.  */
   2 /* Based on gcc.dg/Wbad-function-cast-1.c.  */
   3
   4 /* { dg-do compile } */
   5 /* { dg-options "-std=gnu99 -Wbad-function-cast" } */
   6
   7 int if1(void);
   8 char if2(void);
   9 long if3(void);
  10 float rf1(void);
  11 double rf2(void);
  12 _Decimal32 rf3(void);
  13 _Decimal64 rf4(void);
  14 _Decimal128 rf5(void);
  15 _Complex double cf(void);
  16
  17 void
  18 foo(void)
  19 {
  20   /* Casts to void types are always OK.  */
  21   (void)rf3();
  22   (void)rf4();
  23   (void)rf5();
  24   (const void)rf3();
  25   /* Casts to the same type or similar types are OK.  */
  26   (_Decimal32)rf1();
  27   (_Decimal64)rf2();
  28   (_Decimal128)rf3();
  29   (_Decimal128)rf4();
  30   (_Decimal128)rf5();
  31   (float)rf3();
  32   (double)rf4();
  33   (long double)rf5();
  34    /* Casts to types with different TREE_CODE (which is how this
  35      warning has been defined) are not OK, except for casts to void
  36      types.  */
  37   (_Decimal32)if1(); /* { dg-warning "cast from function call of type 'int' to non-matching type '_Decimal32'" } */
  38   (_Decimal64)if2(); /* { dg-warning "cast from function call of type 'char' to non-matching type '_Decimal64'" } */
  39   (_Decimal128)if3(); /* { dg-warning "cast from function call of type 'long int' to non-matching type '_Decimal128'" } */
  40   (int)rf3(); /* { dg-warning "cast from function call of type '_Decimal32' to non-matching type 'int'" } */
  41   (long)rf4(); /* { dg-warning "cast from function call of type '_Decimal64' to non-matching type 'long int'" } */
  42   (long int)rf5(); /* { dg-warning "cast from function call of type '_Decimal128' to non-matching type 'long int'" } */
  43   (_Decimal32)cf(); /* { dg-warning "cast from function call of type 'complex double' to non-matching type '_Decimal32'" } */
  44 }