Update concepts branch to revision 131834
[official-gcc.git] / gcc / testsuite / gfortran.dg / substr_3.f
blob3bb71972ff171b9893cf448d440230e8efba8f6f
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
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