Sign in
gnu
/
gcc.git
/
refs/heads/master
/
.
/
gcc
/
testsuite
/
algol68
/
execute
/
rela-string-1.a68
blob: 92648578dabd3b09defd06d72674f068eb7a4c16 [
file
] [
log
] [
blame
]
# { dg-options "-fstropping=upper" } #
BEGIN
ASSERT
(
""
>=
""
);
ASSERT
(
""
<=
""
);
ASSERT
(
"zzz"
>
"aaa"
);
ASSERT
(
"zzz"
>=
"aaa"
);
ASSERT
(
"HelloA"
<
"HelloB"
)
END
