Sign in
gnu
/
gcc.git
/
refs/heads/master
/
.
/
gcc
/
testsuite
/
algol68
/
execute
/
variable-declaration-4.a68
blob: 0c66d9e1fb0dc30dc8c92519b19ce0116c45c054 [
file
] [
log
] [
blame
]
# { dg-options "-fstropping=upper" } #
BEGIN
INT x
:=
10
;
REF INT xx
:=
((
x
));
ASSERT
(
xx
=
10
)
END