https://gcc.gnu.org/bugzilla/show_bug.cgi?id=104047
Andrew Pinski <pinskia at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |NEW
Last reconfirmed| |2022-01-17
Ever confirmed|0 |1
--- Comment #1 from Andrew Pinski <pinskia at gcc dot gnu.org> ---
Simplified testcase:
program chkrecursive
implicit none
type recursive
integer :: chk
type(recursive), allocatable :: next
end type recursive
type(recursive) :: chain2
chain2%chk = 2
chain2%next = chain2
chain2%chk = 2
chain2%next = chain2
if (chain2%next%next%chk .ne. 2) then
call abort
end if
end program chkrecursive
