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) STOP 1
12      end
13