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
Backported from mainline
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gcc.c-torture
/
execute
/
20070614-1.c
1
extern void abort (void);
2
3
_Complex v = 3.0 + 1.0iF;
4
5
void
6
foo (_Complex z, int *x)
7
{
8
if (z != v)
9
abort ();
10
}
11
12
_Complex bar (_Complex z) __attribute__ ((pure));
13
_Complex
14
bar (_Complex z)
15
{
16
return v;
17
}
18
19
int
20
baz (void)
21
{
22
int a, i;
23
for (i = 0; i < 6; i++)
24
foo (bar (1.0iF * i), &a);
25
return 0;
26
}
27
28
int
29
main ()
30
{
31
baz ();
32
return 0;
33
}