[Bug fortran/65024] [4.9/5 Regression] [OOP] ICE concerning unlimited polymorphic pointer

[janus at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=65024

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |ice-on-valid-code
                 CC|                            |janus at gcc dot gnu.org
            Summary|Internal compiler error     |[4.9/5 Regression] [OOP]
                   |(gfortran) concerning       |ICE concerning unlimited
                   |unlimited polymorphic       |polymorphic pointer
                   |pointer                     |

--- Comment #2 from janus at gcc dot gnu.org ---
Here is a reduced/modified version:


MODULE X
  TYPE T
    CLASS(*), pointer :: info
  END TYPE
END MODULE

PROGRAM P
CONTAINS
  SUBROUTINE BUG
    USE X
    CLASS(T), pointer :: e
    e%info => NULL()      ! ICE
  END SUBROUTINE

  SUBROUTINE NEXT
    USE X
    CLASS (T), pointer :: e
  END SUBROUTINE
END


It produces the same ICE with 4.9 and trunk, but compiles cleanly with 4.8.