Sign in
gnu
/
gcc.git
/
refs/heads/trunk
/
.
/
gcc
/
testsuite
/
algol68
/
compile
/
implicit-widening-1.a68
blob: 2fa010c12a76222d389a9dba040a6eade06e92c3 [
file
]
# { dg-options "-Wextensions -fstropping=upper" } #
# This program shall compile without warning, because
widening
from
INT to REAL
is
legal
in
the strict language
,
since they have the same size
.
#
BEGIN
BOOL cond
;
REAL x
,
y
;
y
+
(
cond
|
x
|
10
)
END