Sign in
gnu
/
gcc.git
/
refs/heads/master
/
.
/
gcc
/
testsuite
/
algol68
/
execute
/
loop-3.a68
blob: 63b3e203a52c6243b8be25aa87f3f03e97ee62f9 [
file
] [
log
] [
blame
]
# { dg-options "-fstropping=upper" } #
# Nested loops. #
BEGIN
INT i
:=
10
,
res
:=
0
;
WHILE i
>
0
DO INT j
:=
10
;
WHILE j
>
0
DO res
+:=
1
;
j
-:=
1
OD
;
ASSERT
(
j
=
0
);
i
-:=
1
;
OD
;
ASSERT
(
i
=
0
AND res
=
100
)
END