Sign in
gnu
/
gcc.git
/
refs/heads/master
/
.
/
gcc
/
testsuite
/
algol68
/
execute
/
widening-2.a68
blob: 9ac6aae53967a343d3b3772a747d4eab60e4b883 [
file
] [
log
] [
blame
]
# { dg-options "-fstropping=upper" } #
BEGIN
LONG INT i
=
LONG
10
;
LONG REAL foo
=
i
;
ASSERT
(
foo
>
LONG
9.9
);
ASSERT
(
foo
<
LONG
10.1
)
END