[Bug fortran/66577] New: ICE with gfortran-5.1.0 in generate_finalization_wrapper

["Daniel.Kokron at nasa dot gov" <gcc-bugzilla at gcc dot gnu dot org>]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66577

            Bug ID: 66577
           Summary: ICE with gfortran-5.1.0 in
                    generate_finalization_wrapper
           Product: gcc
           Version: 5.1.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: Daniel.Kokron at nasa dot gov
  Target Milestone: ---

gfortran --version
GNU Fortran (GCC) 5.1.0
Copyright (C) 2015 Free Software Foundation, Inc.

gcc-5.1.0 was build using gmp-6.0.0, mpfr-3.1.2 and mpc-1.0.3

932> cat Minimal.f03
module SingleLinkedListClass
  implicit none
  private

  integer, parameter :: intG_IK = SELECTED_INT_KIND (8)

  type SingleLinkItem
    integer (kind=4), public        :: intTag
    logical (kind=4), public        :: blnIsPointer
    class (*),              pointer :: udtData => NULL ()
    type (SingleLinkItem),  pointer :: udtNext => NULL()
  contains
    final :: Destroy
  end type SingleLinkItem

  type SingleLinkedList
     private
     type (SingleLinkItem), pointer :: udtFirstLink => NULL ()
     integer (intG_IK)    , public  :: intItemCount = 0
   contains
     procedure, public,  pass(this) :: GoToStart
  end type SingleLinkedList

contains
  function GoToStart (this) result (intSuccess)
    implicit none 
    class (SingleLinkedList), intent (inout) :: this
    integer (intG_IK) :: intSuccess = -1
  end function GoToStart

  subroutine Destroy (this)
    implicit none
    type(SingleLinkItem), intent(inout) :: this
    integer(kind=4)                     :: intStat
    DEALLOCATE (this%udtData, STAT=intStat)
    this%intTag = 0
  end subroutine Destroy

end module SingleLinkedListClass

935> gfortran -fPIC -cpp -Wall -Wextra -ffree-form -O2 -m64 -I. -c Minimal.f03
f951: internal compiler error: in generate_finalization_wrapper, at
fortran/class.c:1567
0x61ebab generate_finalization_wrapper
        ../.././gcc/fortran/class.c:1566
0x61ebab gfc_find_derived_vtab(gfc_symbol*)
        ../.././gcc/fortran/class.c:2401
0x69fcb5 resolve_fl_derived
        ../.././gcc/fortran/resolve.c:12950
0x69a747 resolve_symbol
        ../.././gcc/fortran/resolve.c:13230
0x6b2f5b do_traverse_symtree
        ../.././gcc/fortran/symbol.c:3641
0x69d882 resolve_types
        ../.././gcc/fortran/resolve.c:14977
0x6994b0 gfc_resolve(gfc_namespace*)
        ../.././gcc/fortran/resolve.c:15081
0x684df6 gfc_parse_file()
        ../.././gcc/fortran/parse.c:5477
0x6c43f5 gfc_be_parse_file
        ../.././gcc/fortran/f95-lang.c:228