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/40692
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gcc.c-torture
/
execute
/
20020314-1.c
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
}