[Bug fortran/69603] [5/6 Regression] ICE: segfault with -fimplicit-none and proc_ptr_comp_24.f90

[dominiq at lps dot ens.fr]

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

Dominique d'Humieres <dominiq at lps dot ens.fr> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2016-02-01
                 CC|                            |janus at gcc dot gnu.org
            Summary|ICE: segfault with          |[5/6 Regression] ICE:
                   |-fimplicit-none and         |segfault with
                   |proc_ptr_comp_24.f90        |-fimplicit-none and
                   |                            |proc_ptr_comp_24.f90
     Ever confirmed|0                           |1

--- Comment #1 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
The ICE occurred between revisions r219318 (2015-01-07, compiles) and r219477
(2015-01-12, ICE), possibly r219439. Reduced test

PROGRAM prog
  implicit none
 TYPE object
  PROCEDURE(), POINTER, NOPASS :: f
 END TYPE object
 TYPE container
  TYPE (object), POINTER :: o(:)
 END TYPE container
 TYPE (container) :: c
 TYPE (object) :: o1, o2
 PROCEDURE(), POINTER :: f => NULL()
 o1%f => f
 CALL set_func(o2,o1%f)
CONTAINS
 SUBROUTINE set_func(o,f)
  TYPE (object) :: o
  PROCEDURE(), POINTER :: f
 END SUBROUTINE set_func
END PROGRAM prog