| /* { dg-do compile } */ | |
| struct singlecomplex { float real, imag ; } ; | |
| struct doublecomplex { double real, imag ; } ; | |
| struct extendedcomplex { long double real, imag ; } ; | |
| extern double cabs(); | |
| float cabsf(fc) | |
| struct singlecomplex fc; /* { dg-warning "doesn't match" } */ | |
| { | |
| struct doublecomplex dc ; | |
| dc.real=fc.real; dc.imag=fc.imag; | |
| return (float) cabs(dc); /* { dg-warning "incompatible type for argument 1 of .cabs." } */ | |
| } | |