OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
PR middle-end/35456
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gcc.c-torture
/
execute
/
complex-5.c
1
float __complex__
2
p (float __complex__ a, float __complex__ b)
3
{
4
return a + b;
5
}
6
7
float __complex__ x = 1.0 + 14.0 * (1.0fi);
8
float __complex__ y = 7.0 + 5.0 * (1.0fi);
9
float __complex__ w = 8.0 + 19.0 * (1.0fi);
10
float __complex__ z;
11
12
main ()
13
{
14
15
z = p (x,y);
16
y = p (x, 1.0f / z);
17
if (z != w)
18
abort ();
19
exit (0);
20
}