Sign in
gnu
/
gcc.git
/
refs/heads/master
/
.
/
gcc
/
testsuite
/
algol68
/
execute
/
mcgt
/
mcgt-4.3.2a.a68
blob: 039a661a62f1c16f61adfcf91d16fa6ae5dbd72e [
file
]
# { dg-options "-fstropping=upper" } #
# Rows of integers. #
BEGIN
[][]
INT g
=
((
1
,
2
,
3
),(
4
,
5
),(
6
,
7
,
8
,
9
));
ASSERT
(
UPB g
[
1
]
=
3
AND UPB g
[
2
]
=
2
AND UPB g
[
3
]
=
4
)
END
