https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69385
--- Comment #5 from janus at gcc dot gnu.org ---
In fact I have hit the same ICE with a slightly different test case:
program test
implicit none
type :: t
real, allocatable :: r(:)
end type
type(t) :: a
a%r = 0.
end
