Sign in
gnu
/
gcc.git
/
refs/heads/master
/
.
/
gcc
/
testsuite
/
algol68
/
execute
/
identity-declaration-multiple-empty-1.a68
blob: c8890c27c3d36be42e5d64b87e3fda263e9dc1e7 [
file
] [
log
] [
blame
]
# { dg-options "-fstropping=upper" } #
BEGIN
[]
INT a
=
();
ASSERT
(
UPB a
=
0
);
ASSERT
(
LWB a
=
1
);
ASSERT
(
ELEMS a
=
0
)
END