Sign in
gnu
/
gcc.git
/
refs/heads/master
/
.
/
gcc
/
testsuite
/
algol68
/
execute
/
overab-2.a68
blob: eec8a1cbfdc82f0d2fdbefdb338f1db42ea040ac [
file
] [
log
] [
blame
]
# { dg-options "-fstropping=upper" } #
BEGIN
INT n
:=
10
;
(((
n OVERAB
1
)))
:=
5
;
ASSERT
(
n
=
5
)
END