Sign in
gnu
/
gcc.git
/
refs/heads/trunk
/
.
/
gcc
/
testsuite
/
algol68
/
execute
/
gen-loc-1.a68
blob: 1a61bbea0a12fa7b3f71219496b32b4bc0f0c79c [
file
]
# { dg-options "-fstropping=upper" } #
BEGIN
INT jorl
;
REF INT
var
=
LOC INT
;
var
:=
jorl
:=
10
;
ASSERT
(
var
=
10
)
END