[Bug fortran/29641] New: [4.1/4.2/4.3 regression] ICE in gfc_get_derived_type

["jakub at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

PR28959 fix causes a regression:

    module A
      type :: T
        integer :: u
      end type T
    end module A

    module B
    contains
      function foo()
        use A
        type(T), pointer :: foo
        nullify (foo)
      end function foo
    end module B

    subroutine bar()
      use B             ! The order here is important
      use A             ! If use A comes before use B, it works
      type(T), pointer :: x
      x => foo()
    end subroutine bar

ICEs because in:
 -      for (ns = derived->ns->parent; ns; ns = ns->parent)
 +      /* Derived types in an interface body obtain their parent reference
 +        through the proc_name symbol.  */
 +      ns = derived->ns->parent ? derived->ns->parent
 +                              : derived->ns->proc_name->ns->parent;
 +
 +      for (; ns; ns = ns->parent)

both derived->ns->parent and derived->ns->proc_name are NULL.


-- 
           Summary: [4.1/4.2/4.3 regression] ICE in gfc_get_derived_type
           Product: gcc
           Version: 4.2.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: jakub at gcc dot gnu dot org


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