https://gcc.gnu.org/bugzilla/show_bug.cgi?id=58906
janus at gcc dot gnu.org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |janus at gcc dot gnu.org
--- Comment #2 from janus at gcc dot gnu.org ---
Segfaults with 4.8, 4.9 and trunk.
Slightly reduced test case:
TYPE :: child
CLASS(*), DIMENSION(:), POINTER :: arr
END TYPE
CONTAINS
SUBROUTINE f(r)
CLASS(child) :: r
SELECT TYPE ( r )
CLASS IS ( child )
SELECT TYPE( iarr=>r%arr )
TYPE IS ( INTEGER )
CALL func( iarr )
END SELECT
END SELECT
END SUBROUTINE
END
