Sign in
gnu
/
gcc.git
/
refs/heads/master
/
.
/
gcc
/
testsuite
/
algol68
/
execute
/
loop-8.a68
blob: e7d090160aea471a1d6917ab13b9342f4dc642f0 [
file
] [
log
] [
blame
]
# { dg-options "-fstropping=upper" } #
BEGIN
INT i
:=
0
,
n
:=
2
;
FOR a TO n
+
1
DO i
+:=
a OD
;
ASSERT
(
i
=
1
+
2
+
3
)
END