[Bug fortran/47730] [OOP] ICE on invalid source in connection with SELECT TYPE

[janus at gcc dot gnu.org]

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

--- Comment #3 from janus at gcc dot gnu.org 2011-02-14 10:32:18 UTC ---
Another related test case was recently reported by Andrew Benson at
http://gcc.gnu.org/ml/fortran/2011-02/msg00111.html:


module mod1
  type treeNode
  end type treeNode
contains
  subroutine proc1(thisNode)
    class (treeNode), target, intent(in) :: thisNode
    select type (thisNode)
    type is (treeNode)
       workNode => thisNode
    end select
  end subroutine proc1
end module mod1


workNode => thisNode
       1
Error: Non-POINTER in pointer association context (pointer assignment) at (1)
f951: internal compiler error: in gfc_enforce_clean_symbol_state, at
fortran/symbol.c:3426