Sign in
gnu
/
gcc.git
/
refs/heads/master
/
.
/
gcc
/
testsuite
/
algol68
/
execute
/
abs-bits-1.a68
blob: bdb3a1bef52ecde1305e0307bdcb65f7794e9460 [
file
] [
log
] [
blame
]
# { dg-options "-fstropping=upper" } #
# ABS for SIZETY BITS #
BEGIN
ASSERT
(
255
=
ABS
16rff
);
ASSERT
(
LONG
255
=
ABS LONG
16rff
);
ASSERT
(
LONG LONG
255
=
ABS LONG LONG
16rff
)
# XXX test ABS of negative numbers (extension). #
END