URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [g++.dg/] [other/] [complex1.C] - Blame information for rev 715

Go to most recent revision | Details | Compare with Previous | View Log


// PR middle-end/18882
// Origin: Petr Mikulik 
// Testcase by Wolfgang Bangerth 
 
// { dg-do run }
// { dg-options "" }
 
extern "C" void abort ();
 
struct C {
  __complex__ long double c;
};
 
void foo()
{
  C x = {2+2i};
 
  int n = 1;
  C y = (n==1) ? x : (C){3+3i};
  if (__imag__ y.c != 2)
    abort ();
}
 
int main(void)
{
  foo ();
  return 0;
}

Line No.	Rev	Author	Line
1	693	jeremybenn	`// PR middle-end/18882`
2			`// Origin: Petr Mikulik`
3			`// Testcase by Wolfgang Bangerth`
4
5			`// { dg-do run }`
6			`// { dg-options "" }`
7
8			`extern "C" void abort ();`
9
10			`struct C {`
11			`__complex__ long double c;`
12			`};`
13
14			`void foo()`
15			`{`
16			`C x = {2+2i};`
17
18			`int n = 1;`
19			`C y = (n==1) ? x : (C){3+3i};`
20			`if (__imag__ y.c != 2)`
21			`abort ();`
22			`}`
23
24			`int main(void)`
25			`{`
26			`foo ();`
27			`return 0;`
28			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [g++.dg/] [other/] [complex1.C] - Blame information for rev 715