repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Daily bump.
[official-gcc.git]
/
gcc
/
testsuite
/
gcc.c-torture
/
execute
/
complex-5.c
blob
6ba5d47e14da8989021298fb59d51c0525d1e5f6
1
void
abort
(
void
);
2
void
exit
(
int
);
3
4
float
__complex__
5
p
(
float
__complex__ a
,
float
__complex__ b
)
6
{
7
return
a
+
b
;
8
}
9
10
float
__complex__ x
=
1.0
+
14.0
* (
1.0
fi
);
11
float
__complex__ y
=
7.0
+
5.0
* (
1.0
fi
);
12
float
__complex__ w
=
8.0
+
19.0
* (
1.0
fi
);
13
float
__complex__ z
;
14
15
int
16
main
(
void
)
17
{
18
19
z
=
p
(
x
,
y
);
20
y
=
p
(
x
,
1.0
f
/
z
);
21
if
(
z
!=
w
)
22
abort
();
23
exit
(
0
);
24
}