2 ! I couldn't reproduce the failure with a compiler built from the
6 subroutine split(instring
,outstrings
,lenout
,n
,i
)
7 integer(kind
=4),intent(in
) :: lenout
,n
8 character(len
=*),intent(in
) :: instring
9 character(len
=lenout
),dimension(n
),intent(out
) :: outstrings
10 integer(kind
=4) :: i
,j
,k
12 outstrings(j
)(k
:k
)=instring(i
:i
)
