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
