URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [g++.dg/] [opt/] [complex5.C] - Rev 816
Compare with Previous | Blame | View Log
// PR 24365
// { dg-do compile }
// { dg-options "-O2" }
typedef __complex__ double cdouble;
inline cdouble to_complex(double r) {
cdouble z;
__real__ z = r;
return z;
}
cdouble elt_zero() {
cdouble a = to_complex(0.0);
a+=1.0;
return a;
}