2 ! Check that substrings behave correctly even when zero-sized
4 character(len=10) :: s, t
10 if (s /= t) call abort
14 if (s /= t) call abort
17 if (s /= t) call abort
19 if (s /= t) call abort
21 if (len(trim(s)) /= 0) call abort
22 if (len(t(8:4)) /= 0) call abort
23 if (len(trim(t(8:4))) /= 0) call abort