Sign in
gnu
/
gcc.git
/
refs/heads/trunk
/
.
/
gcc
/
testsuite
/
algol68
/
execute
/
loop-1.a68
blob: 91e47c09b57ee54e053f7235527c1108f1dbb6f2 [
file
] [
log
] [
blame
]
# { dg-options "-fstropping=upper" } #
BEGIN
INT i
:=
0
;
DO i
+:=
1
;
IF i
=
5
THEN
exit
FI
OD
;
exit
:
ASSERT
(
i
=
5
)
END