1! { dg-do compile } 2! I couldn't reproduce the failure with a compiler built from the 3! 2004-09-26 sources 4 module specfiles 5 contains 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 11 j=1; k=1 12 outstrings(j)(k:k)=instring(i:i) 13 return 14 end subroutine split 15 end module specfiles 16