Sign in
gnu
/
gcc.git
/
refs/heads/master
/
.
/
gcc
/
testsuite
/
algol68
/
execute
/
flex-4.a68
blob: d4d7c998f7dcd705f3ee242ca017d9464619194f [
file
] [
log
] [
blame
]
# { dg-options "-fstropping=upper" } #
# Rowing to flexible rows. #
BEGIN
FLEX
[
3
]
INT list
:=
(
1
,
2
,
3
);
list
:=
(
10
,
20
,
30
,
40
);
ASSERT
(
list
[
4
]
=
40
)
END