[Bug fortran/44735] ICE on FORALL with character array pointer

dominiq at lps dot ens.fr gcc-bugzilla@gcc.gnu.org
Fri Aug 29 09:44:00 GMT 2014


https://gcc.gnu.org/bugzilla/show_bug.cgi?id=44735

--- Comment #5 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
This PR is fixed by the patch at
https://gcc.gnu.org/ml/fortran/2014-08/msg00114.html. Test that can be
executed:

subroutine bug
  character(len=10) :: F_string
  character(len=1), dimension(:), pointer :: p_chars
  allocate(p_chars(10))
  p_chars = ['a','b','c','d','e','f','g','h','i','j']
  forall (i=1:len(F_string))
    F_string(i:i) = p_chars(i)
  end forall
  print *, F_string
  deallocate(p_chars)
end subroutine bug
call bug()
end

[Book15] f90/bug% a.out
 abcdefghij



More information about the Gcc-bugs mailing list