URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [g++.dg/] [opt/] [complex5.C] - Rev 478
Go to most recent revision | 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;
}
Go to most recent revision | Compare with Previous | Blame | View Log