$ cat bug3.f90
subroutine bug
  character(len=10) :: F_string
  character(len=1), dimension(:), pointer :: p_chars
  forall (i=1:len(F_string))
    F_string(i:i) = p_chars(i)
  end forall
end subroutine bug

$ /usr/local/gfortran/bin/gfortran -c bug3.f90
bug3.f90: In function ‘bug’:
bug3.f90:1:0: internal compiler error: Segmentation fault
Please submit a full bug report,
with preprocessed source if appropriate.
See <http://gcc.gnu.org/bugs.html> for instructions.


-- 
           Summary: ICE on FORALL with character array pointer
           Product: gcc
           Version: 4.6.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: jkrahn at nc dot rr dot com


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

Reply via email to