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
gfortran testsuite: Remove unit-files in files having open-statements, PR116701
[official-gcc.git]
/
gcc
/
testsuite
/
gcc.c-torture
/
execute
/
20001130-2.c
blob
91b1db154ce522915109a0edfea91fd210cfe307
1
void
abort
(
void
);
2
void
exit
(
int
);
3
4
static int
which_alternative
=
3
;
5
6
static const char
*
i960_output_ldconst
(
void
);
7
8
static const char
*
9
output_25
(
void
)
10
{
11
switch
(
which_alternative
)
12
{
13
case
0
:
14
return
"mov %1,%0"
;
15
case
1
:
16
return
i960_output_ldconst
();
17
case
2
:
18
return
"ld %1,%0"
;
19
case
3
:
20
return
"st %1,%0"
;
21
}
22
}
23
24
static const char
*
i960_output_ldconst
(
void
)
25
{
26
return
"foo"
;
27
}
28
int
main
(
void
)
29
{
30
const char
*
s
=
output_25
() ;
31
if
(
s
[
0
] !=
's'
)
32
abort
();
33
exit
(
0
);
34
}