1  /* Test for -Wtraditional warnings on conversions by prototypes.
       2     Note, gcc should omit these warnings in system header files.
       3     Based on gcc.dg/wtr-conversion-1.c  */
       4  
       5  /* { dg-do compile } */
       6  /* { dg-options "-Wtraditional-conversion" } */
       7  
       8  extern void foo_i (int);
       9  extern void foo_f (float);
      10  extern void foo_ld (long double);
      11  extern void foo_d32 (_Decimal32);
      12  extern void foo_d64 (_Decimal64);
      13  extern void foo_d128 (_Decimal128);
      14  
      15  extern int i;
      16  extern float f;
      17  extern long double ld;
      18  extern _Decimal32 d32;
      19  extern _Decimal64 d64;
      20  extern _Decimal128 d128;
      21  
      22  void
      23  testfunc1 ()
      24  {
      25    foo_i (i);
      26    foo_i (d32); /* { dg-warning "as integer rather than floating" "prototype conversion warning" } */
      27    foo_i (d64); /* { dg-warning "as integer rather than floating" "prototype conversion warning" } */
      28    foo_i (d128); /* { dg-warning "as integer rather than floating" "prototype conversion warning" } */
      29    foo_d32 (i); /* { dg-warning "as floating rather than integer" "prototype conversion warning" } */
      30    foo_d32 (f); /* { dg-warning "as '_Decimal32' rather than 'float'" "prototype conversion warning" } */
      31    foo_d32 (ld); /* { dg-warning "as '_Decimal32' rather than 'long double'" "prototype conversion warning" } */
      32    foo_d32 (d64); /* { dg-warning "as '_Decimal32' rather than '_Decimal64'" "prototype conversion warning" } */
      33    foo_d32 (d128); /* { dg-warning "as '_Decimal32' rather than '_Decimal128'" "prototype conversion warning" } */
      34    foo_d64 (i); /* { dg-warning "as floating rather than integer" "prototype conversion warning" } */
      35    foo_d64 (f); /* { dg-warning "as '_Decimal64' rather than 'float'" "prototype conversion warning" } */
      36    foo_d64 (ld); /* { dg-warning "as '_Decimal64' rather than 'long double'" "prototype conversion warning" } */
      37    foo_d64 (d32); /* { dg-bogus "as '_Decimal64' rather than '_Decimal32'" "prototype conversion warning" } */
      38    foo_d64 (d128); /* { dg-warning "as '_Decimal64' rather than '_Decimal128'" "prototype conversion warning" } */
      39    foo_d128 (i); /* { dg-warning "as floating rather than integer" "prototype conversion warning" } */
      40    foo_d128 (f); /* { dg-warning "as '_Decimal128' rather than 'float'" "prototype conversion warning" } */
      41    foo_d128 (ld); /* { dg-warning "as '_Decimal128' rather than 'long double'" "prototype conversion warning" } */
      42    foo_d128 (d32); /* { dg-bogus "as '_Decimal128' rather than '_Decimal32'" "prototype conversion warning" } */
      43    foo_d128 (d64); /* { dg-bogus "as '_Decimal128' rather than '_Decimal64'" "prototype conversion warning" } */
      44    foo_d128 (d128); /* { dg-bogus "as '_Decimal128' rather than '_Decimal'" "prototype conversion warning" } */
      45  }
      46    
      47  # 54 "sys-header.h" 3
      48  /* We are in system headers now, no -Wtraditional warnings should issue.  */
      49  
      50  void
      51  testfunc2 ()
      52  {
      53    foo_i (i);
      54    foo_i (d32);
      55    foo_i (d64);
      56    foo_i (d128);
      57    foo_d32 (i);
      58    foo_d32 (f);
      59    foo_d32 (ld);
      60    foo_d32 (d32);
      61    foo_d32 (d64);
      62    foo_d32 (d128);
      63    foo_d64 (i);
      64    foo_d64 (f);
      65    foo_d64 (ld);
      66    foo_d64 (d32);
      67    foo_d64 (d64);
      68    foo_d64 (d128);
      69    foo_d128 (i);
      70    foo_d128 (f);
      71    foo_d128 (ld);
      72    foo_d128 (d32);
      73    foo_d128 (d64);
      74    foo_d128 (d128);
      75  }