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