http://gcc.gnu.org/bugzilla/show_bug.cgi?id=60593
--- Comment #4 from Steve Kargl <sgk at troutmask dot apl.washington.edu> --- On Wed, Mar 19, 2014 at 06:01:14PM +0000, dominiq at lps dot ens.fr wrote: > > --- Comment #3 from Dominique d'Humieres <dominiq at lps dot ens.fr> --- > It looks similar to the ICE reported in pr51976 comment 8, although the ICEs > are different. > It does look similar. Perhaps, janus patch has simply moved the issue to a new location. A farther reduced test case without the pointer assignment. function C2FChar(j, s) result(res) implicit none integer, intent(in) :: j character(len=:), pointer, intent(in) :: s character(len=:), allocatable :: res integer i allocate(character(j) :: res) forall (i = 1:j) res(i:i) = s(i:i) end function