Sign in
gnu
/
gcc.git
/
refs/heads/trunk
/
.
/
gcc
/
testsuite
/
algol68
/
execute
/
proc-6.a68
blob: 894f53e0525015fdfe2e7d53386947a619b47d2c [
file
] [
log
] [
blame
]
# { dg-options "-fstropping=upper" } #
# Recursive function, used before declared. #
BEGIN
ASSERT
(
foo
(
10
)
=
55
);
PROC foo
=
(
INT i
)
INT
:
BEGIN
(
i
>
0
|
i
+
foo
(
i
-
1
)
|
0
)
END
;
SKIP
END
