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.c-torture/execute/20020314-1.c: New test.
[official-gcc.git]
/
gcc
/
testsuite
/
gcc.c-torture
/
execute
/
20020314-1.c
blob
28288c82c8bc7ee74e0969f1711ffcbdfae65228
1
void
f
(
void
*
a
,
double
y
)
2
{
3
}
4
5
double
g
(
double
a
,
double
b
,
double
c
,
double
d
)
6
{
7
double
x
,
y
,
z
;
8
void
*
p
;
9
10
x
=
a
+
b
;
11
y
=
c
*
d
;
12
13
p
=
alloca
(
16
);
14
15
f
(
p
,
y
);
16
z
=
x
*
y
*
a
;
17
18
return
z
+
b
;
19
}
20
21
main
()
22
{
23
double
a
,
b
,
c
,
d
;
24
a
=
1.0
;
25
b
=
0.0
;
26
c
=
10.0
;
27
d
=
0.0
;
28
29
if
(
g
(
a
,
b
,
c
,
d
) !=
0.0
)
30
abort
();
31
32
if
(
a
!=
1.0
||
b
!=
0.0
||
c
!=
10.0
||
d
!=
0.0
)
33
abort
();
34
35
exit
(
0
);
36
}