https://gcc.gnu.org/bugzilla/show_bug.cgi?id=83976
--- Comment #5 from G. Steinmetz <gs...@t-online.de> --- Slightly shorter : $ cat zz1.f90 program p type t end type class(t), allocatable :: x type(t) :: y y = (x) end $ cat zz2.f90 program p type t end type class(t) :: x type(t) :: y y = (x) end