$ cat a.f90
subroutine bar(s, n)
integer n
character s*(n)
character*3, dimension(:), pointer :: m
contains
subroutine gee
m(1) = s(1:3)
end subroutine gee
end subroutine bar
$ gfortran -c a.f90
a.f90:7: internal compiler error: Segmentation fault
--
Summary: ICE on character pointer assignment
Product: gcc
Version: 4.2.0
Status: UNCONFIRMED
Keywords: ice-on-valid-code
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: fxcoudert at gcc dot gnu dot org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=28600