Sign in
gnu
/
gcc.git
/
refs/heads/trunk
/
.
/
gcc
/
testsuite
/
algol68
/
execute
/
slice-indexing-1.a68
blob: 53d14fa982fe1a90781c2ab935146644db3b4e40 [
file
]
# { dg-options "-fstropping=upper" } #
BEGIN
STRING foo
=
"foo"
;
ASSERT
(
foo
[
1
]
=
"f"
);
ASSERT
(
foo
[
2
]
=
"o"
);
ASSERT
(
foo
[
3
]
=
"o"
);
STRING bar
:=
"foo"
;
ASSERT
(
bar
[
1
]
=
"f"
);
ASSERT
(
bar
[
2
]
=
"o"
);
ASSERT
(
bar
[
3
]
=
"o"
)
END