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
Fortran: fix passing of optional dummy as actual to optional argument [PR55978]
[official-gcc.git]
/
gcc
/
testsuite
/
gcc.c-torture
/
execute
/
950710-1.c
blob
2a641a01fe4751123028477d3305959cd8ff264f
1
void
abort
(
void
);
2
void
exit
(
int
);
3
4
struct
twelve
5
{
6
int
a
;
7
int
b
;
8
int
c
;
9
};
10
11
struct
pair
12
{
13
int
first
;
14
int
second
;
15
};
16
17
struct
pair
18
g
()
19
{
20
struct
pair p
;
21
return
p
;
22
}
23
24
static void
25
f
()
26
{
27
int
i
;
28
for
(
i
=
0
;
i
<
1
;
i
++)
29
{
30
int
j
;
31
for
(
j
=
0
;
j
<
1
;
j
++)
32
{
33
if
(
0
)
34
{
35
int
k
;
36
for
(
k
=
0
;
k
<
1
;
k
++)
37
{
38
struct
pair e
=
g
();
39
}
40
}
41
else
42
{
43
struct
twelve a
,
b
;
44
if
((((
char
*) &
b
- (
char
*) &
a
) <
0
45
? (-((
char
*) &
b
- (
char
*) &
a
))
46
: ((
char
*) &
b
- (
char
*) &
a
)) <
sizeof
(
a
))
47
abort
();
48
}
49
}
50
}
51
}
52
53
int
54
main
(
void
)
55
{
56
f
();
57
exit
(
0
);
58
}