[Bug fortran/60593] ICE with deferred length variable in FORALL

[sgk at troutmask dot apl.washington.edu]

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