http://gcc.gnu.org/bugzilla/show_bug.cgi?id=57116
janus at gcc dot gnu.org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |janus at gcc dot gnu.org
Summary|CLASS(*) - ICE for pointer |[OOP] ICE for pointer
|assignment inside SELECT |assignment inside SELECT
|TYPE on UP entity |TYPE
--- Comment #2 from janus at gcc dot gnu.org 2013-04-30 12:13:49 UTC ---
Reduced test case for the ICE, which shows that unlimited polymorphism is not
required to trigger the bug:
implicit none
type :: foo
real :: v
end type
contains
subroutine extract(this, v)
class(foo), target :: this(:)
real, pointer :: v(:)
select type (this)
class is (foo)
v => this(1:2)%v
end select
end subroutine
end
