1 // PR 24365
2 // { dg-do compile }
3 // { dg-options "-O2" }
4 
5 typedef __complex__ double cdouble;
to_complex(double r)6 inline cdouble to_complex(double r) {
7   cdouble z;
8   __real__ z = r;
9   return z;
10 }
elt_zero()11 cdouble elt_zero() {
12   cdouble a = to_complex(0.0);
13   a+=1.0;
14   return a;
15 }
16 
17