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