[Bug fortran/54443] Segmentation Fault when Compiling for code using Fortran Polymorphic Entities

[dominiq at lps dot ens.fr]

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

--- Comment #2 from Dominique d'Humieres <dominiq at lps dot ens.fr> 2012-09-01 00:30:05 UTC ---
Compiling the following reduced test

program class_test
  type hashnode
!    character(12) :: name
    character(4) :: htype
  end type hashnode
  class(hashnode), pointer :: hfirst,hcur,hp

    select type(hp%htype)

end program class_test

gives an internal compiler error: Segmentation fault with trunk, but the error

pr54443_red.f90:8.25:

    select type(hp%htype)
                         1   
Error: Selector in SELECT TYPE at (1) is not a named variable; use
associate-name=>

if I uncomment the line character(12) :: name, while it still gives an ICE with
4.7.1.

The backtrace for trunk is

Program received signal EXC_BAD_ACCESS, Could not access memory.
Reason: 13 at address: 0x0000000000000000
gfc_match_select_type () at ../../work/gcc/fortran/match.c:5438
5438              && (strcmp (CLASS_DATA (expr1)->name, "_data") == 0)
(gdb) bt
#0  gfc_match_select_type () at ../../work/gcc/fortran/match.c:5438
#1  0x0000000100078fea in match_word (subr=<value temporarily unavailable, due
to optimizations>, old_locus=0x100ea35e0) at ../../work/gcc/fortran/parse.c:67
#2  0x000000014180f750 in ?? ()
Previous frame inner to this frame (gdb could not unwind past this frame)