Sign in
gnu
/
gcc.git
/
refs/heads/master
/
.
/
gcc
/
testsuite
/
algol68
/
execute
/
rowing-5.a68
blob: 2172617b640b5d055433e2c9c7f2ebda2d98bfd0 [
file
] [
log
] [
blame
]
# { dg-options "-fstropping=upper" } #
# Rowing of a name. #
BEGIN
INT i
:=
10
;
REF
[]
INT a
=
i
;
ASSERT
(
LWB a
=
1
AND UPB a
=
1
AND ELEMS a
=
1
);
a
[
1
]
:=
a
[
1
]
+
1
;
ASSERT
(
a
[
1
]
=
11
)
END