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] - Blame information for rev 841

Go to most recent revision | Details | Compare with Previous | 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;
}
 

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

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [g++.dg/] [opt/] [complex5.C] - Blame information for rev 841