repo.or.cz
/
gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Fortran: Fix PR 47485.
[gcc.git]
/
gcc
/
testsuite
/
g++.dg
/
other
/
complex1.C
blob
5c035142851243ba98d97eafe037f31f322bbb1c
1
// PR middle-end/18882
2
// Origin: Petr Mikulik <mikulik@physics.muni.cz>
3
// Testcase by Wolfgang Bangerth <bangerth@dealii.com>
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
}