Sign in
gnu
/
gcc.git
/
refs/heads/master
/
.
/
gcc
/
testsuite
/
algol68
/
execute
/
proc-7.a68
blob: 9f39e2d0d04317eec31511b1ba94205e8d9b7d4c [
file
] [
log
] [
blame
]
# { dg-options "-fstropping=upper" } #
BEGIN
PROC foo
=
(
INT i
)
INT
:
i
+
1
;
PROC
(
INT
)
INT bar
=
foo
;
ASSERT
(
bar
(
10
)
=
11
)
END
