Sign in
gnu
/
gcc.git
/
refs/heads/master
/
.
/
gcc
/
testsuite
/
algol68
/
execute
/
mcgt
/
mcgt-4.1.2a.a68
blob: 98e43c62334aff1e678597ce5ef2e66e126d09ed [
file
]
# { dg-options "-fstropping=upper" } #
# Monadic lwb and upb. #
BEGIN
INT n
:=
4
;
[
n
]
INT a
;
ASSERT
(
UPB a
=
4
);
n
:=
6
;
ASSERT
(
UPB a
=
4
)
END