[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