Sign in
gnu
/
gcc.git
/
refs/heads/master
/
.
/
gcc
/
testsuite
/
algol68
/
execute
/
mode-indication-1.a68
blob: f1dd8c28c92f75cefb665990f54993c27bd07869 [
file
] [
log
] [
blame
]
# { dg-options "-fstropping=upper" } #
BEGIN
INT j
;
REAL y
;
MODE R
=
REAL
;
BEGIN
MODE R
=
INT
;
R i
:=
j
;
SKIP
END
;
R x
:=
y
;
SKIP
END