gcc/testsuite/gfortran.dg/substr_3.f

   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