Sign in
gnu
/
gcc.git
/
refs/heads/master
/
.
/
gcc
/
testsuite
/
algol68
/
compile
/
actual-bounds-expected-2.a68
blob: e80e8cb45c08b26a04366b6c52c37d24f02d39d9 [
file
]
# { dg-options "-fstropping=upper" } #
BEGIN
LOC
[]
INT a
:=
(
1
,
2
,
3
);
# { dg-error "actual bounds expected" } #
SKIP
END