[Bug fortran/82036] New: Recursive allocatable class components cause infinite loop in compilation

["pault at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=82036

            Bug ID: 82036
           Summary: Recursive allocatable class components cause infinite
                    loop in compilation
           Product: gcc
           Version: 8.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: pault at gcc dot gnu.org
  Target Milestone: ---

Reported on clf by Ev. Drikos

type t6
   integer :: i
   class(t6), allocatable :: foo
end type t6
type(t6) :: x

x = t6(42, t6(99,NULL()))

print *, "hello", x%foo%i

end

causes an infinite compiler loop. Replacing CLASS with TYPE in the component
declaration removes the problem.

I will take it.

Paul