https://gcc.gnu.org/bugzilla/show_bug.cgi?id=82976
--- Comment #9 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
FWITW, here's a shorter test case:
PROGRAM main
TYPE :: test_typ
REAL, ALLOCATABLE :: a(:)
END TYPE
TYPE(test_typ) :: yy
TYPE(test_typ), ALLOCATABLE :: conc(:)
conc = [ yy ]
END PROGRAM main
