https://gcc.gnu.org/bugzilla/show_bug.cgi?id=61767
--- Comment #2 from reubendb at gmail dot com ---
I don't know why this is the case, but adding an allocatable variable in the
type definition of MessageTemplate above avoids the ICE, i.e the following does
not produce ICE:
module Message_Template
use Communicator_Form
implicit none
private
type, public, abstract :: MessageTemplate
integer, allocatable :: &
Dummy
type ( CommunicatorForm ), pointer :: &
Communicator => null ( )
end type MessageTemplate
contains
subroutine InitializeTemplate ( M )
class ( MessageTemplate ), intent ( inout ), target :: &
M
end subroutine InitializeTemplate
end module Message_Template
Note the slight addition of "Dummy" variable above.
