https://gcc.gnu.org/bugzilla/show_bug.cgi?id=125606
Steve Kargl <kargl at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |NEW
Known to fail| |15.2.1, 16.1.0, 17.0
Last reconfirmed| |2026-06-04
CC| |kargl at gcc dot gnu.org
Priority|P3 |P4
Ever confirmed|0 |1
--- Comment #1 from Steve Kargl <kargl at gcc dot gnu.org> ---
Reduced testcase. Not sure it's valid Fortran.
module m
implicit none
type ty
integer value
class(*), allocatable :: node(:)
class(*), allocatable :: c1(:)
end type
type tt
integer value2
class(*), allocatable :: node1(:)
class(*), allocatable :: node2 (:)
class(*), allocatable :: c2(:)
end type
contains
subroutine put_addr(t)
class (*), allocatable :: t(:)
select type(t)
class is(tt)
write (10,"(z16.16)") loc(t(2)%c2)
select type(p => t(2)%node1)
class is(ty)
write (11,"(z16.16)") loc(p(2)%c1)
select type(q => p(2)%node)
class is(ty)
write (12,"(z16.16)") loc(q(2)%c1)
end select
end select
end select
end
end module
