Sign in
gnu
/
gcc.git
/
refs/heads/master
/
.
/
gcc
/
testsuite
/
algol68
/
execute
/
proc-2.a68
blob: 39346fe356770fc1b154f498f214ef71638c6b97 [
file
] [
log
] [
blame
]
# { dg-options "-fstropping=upper" } #
# Call a non-variable procedure before declaration. #
BEGIN
ASSERT
(
foo
=
100
);
PROC foo
=
INT
:
100
;
SKIP
END