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
gcc/
[official-gcc.git]
/
gcc
/
testsuite
/
gcc.c-torture
/
execute
/
complex-3.c
blob
4297cf11ebddcfc52f2d27332886957f353e90d8
1
struct complex
2
{
3
float
r
;
4
float
i
;
5
};
6
7
struct complex
cmplx
(
float
,
float
);
8
9
struct complex
10
f
(
float
a
,
float
b
)
11
{
12
struct complex
c
;
13
c
.
r
=
a
;
14
c
.
i
=
b
;
15
return
c
;
16
}
17
18
main
()
19
{
20
struct complex
z
=
f
(
1.0
,
0.0
);
21
22
if
(
z
.
r
!=
1.0
||
z
.
i
!=
0.0
)
23
abort
();
24
exit
(
0
);
25
}