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