1! { dg-do run }
2! Check that substrings behave correctly even when zero-sized
3 implicit none
4 character(len=10) :: s, t
5 integer :: i, j
6
7 s = "abcdefghij"
8 t(:10) = s(1:)
9 s(16:15) = "foo"
10 s(0:-1) = "foo"
11 if (s /= t) call abort
12 end
13