subroutine bar
type t
  integer, allocatable :: a(:)
end type t
type(t)  :: foo
if (allocated(foo(1)%a)) call abort()
end


-- 
           Summary: ICE invalid if accessing array member of non-array
           Product: gcc
           Version: 4.5.0
            Status: UNCONFIRMED
          Keywords: ice-on-invalid-code
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: burnus at gcc dot gnu dot org


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

Reply via email to