Sign in
gnu
/
gcc.git
/
refs/heads/trunk
/
.
/
gcc
/
testsuite
/
algol68
/
execute
/
op-2.a68
blob: c7721719a5644f5eb146d704c58f3e07fe7b5376 [
file
]
# { dg-options "-fstropping=upper" } #
BEGIN
OP
+
=
(
INT a
,
b
)
INT
:
a
-
-
b
;
ASSERT
(
10
+
30
=
40
)
END
