[Bug fortran/58906] [OOP] SELECT TYPE with CLASS IS generates ICE

[janus at gcc dot gnu.org]

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