Sign in
gnu
/
gcc.git
/
refs/heads/master
/
.
/
gcc
/
testsuite
/
algol68
/
execute
/
string-1.a68
blob: 28e44fe18fef43fa5a64ed5ffb34f595c82f98a1 [
file
] [
log
] [
blame
]
# { dg-options "-fstropping=upper" } #
BEGIN
STRING s
=
""
;
ASSERT
(
LWB s
=
1
AND UPB s
=
0
);
STRING t
=
();
ASSERT
(
LWB t
=
1
AND UPB t
=
0
)
END