[Bug fortran/70864] internal compiler error: in gfc_get_symbol_decl, at fortran/trans-decl.c:1403

["gerhard dot steinmetz dot fortran at t-online dot de" <gcc-bugzilla at gcc dot gnu dot org>]

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

Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |gerhard.steinmetz.fortran@t
                   |                            |-online.de

--- Comment #3 from Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de> ---
Reduced and simplified a bit.


$ cat pr70864_cm.f90
module m70864
  type BoxArray
  contains
    procedure :: boxarray_assign
    generic :: assignment(=) => boxarray_assign
  end type
  type MultiFab
    type(BoxArray) :: ba
  end type
contains
  subroutine boxarray_assign (dst, src)
    class(BoxArray), intent(inout) :: dst
    type (BoxArray), intent(in   ) :: src
  end
  subroutine multifab_copy (mf1, mf2)
    type(MultiFab), intent(inout) :: mf1, mf2
    mf2 = mf1   !!
  end
end module


$ gfortran-7-20161204 -c pr70864_cm.f90
pr70864_cm.f90:19:0:

 end module

internal compiler error: in gfc_get_symbol_decl, at fortran/trans-decl.c:1477
0x75a352 gfc_get_symbol_decl(gfc_symbol*)
        ../../gcc/fortran/trans-decl.c:1477
0x75e5b7 generate_local_decl
        ../../gcc/fortran/trans-decl.c:5327
0x71825b do_traverse_symtree
        ../../gcc/fortran/symbol.c:3994
0x75f412 generate_local_vars
        ../../gcc/fortran/trans-decl.c:5527
0x75f412 gfc_generate_function_code(gfc_namespace*)
        ../../gcc/fortran/trans-decl.c:6206
0x7331f9 gfc_generate_module_code(gfc_namespace*)
        ../../gcc/fortran/trans.c:2164
0x6e72fd translate_all_program_units
        ../../gcc/fortran/parse.c:6025
0x6e72fd gfc_parse_file()
        ../../gcc/fortran/parse.c:6238
0x72b182 gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:202