Sign in
gnu
/
gcc.git
/
refs/heads/trunk
/
.
/
gcc
/
testsuite
/
algol68
/
execute
/
cond-clause-8.a68
blob: 0b3ca04fccba4a1b45d4daf32a084b48536cfab4 [
file
]
# { dg-options "-fstropping=upper" } #
# ELIF #
BEGIN
INT i
=
12
;
IF i
>
20
THEN
1
ELIF i
>
5
THEN
BEGIN
IF FALSE THEN
ASSERT
(
FALSE
);
1
ELSE
0
FI
END
ELIF i
<
10
THEN
ASSERT
(
FALSE
);
1
FI
END