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