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();
cabsf(fc)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 
15