1  /* { dg-do compile } */
       2  
       3  struct singlecomplex { float real, imag ; } ;
       4  struct doublecomplex { double real, imag ; } ;
       5  struct extendedcomplex { long double real, imag ; } ;
       6  extern double cabs();
       7  float cabsf(fc)
       8       struct singlecomplex fc;  /* { dg-warning "doesn't match" } */
       9  {
      10    struct doublecomplex dc ;
      11    dc.real=fc.real; dc.imag=fc.imag;
      12    return (float) cabs(dc);   /* { dg-warning "incompatible type for argument 1 of .cabs." } */
      13  }
      14