Sign in
gnu
/
gcc.git
/
refs/heads/master
/
.
/
gcc
/
testsuite
/
algol68
/
execute
/
gen-loc-3.a68
blob: 66c3cf1ea0c558cdbf879aa24077592feffbc015 [
file
] [
log
] [
blame
]
# { dg-options "-fstropping=upper" } #
BEGIN
INT jorl
;
INT
var
:=
LOC INT
:=
15
;
# The generated name goes away #
ASSERT
(
var
=
15
)
END