gcc/testsuite/gcc.dg/torture/pr67741.c

   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);
  13 }