[Bug fortran/57117] [OOP] ICE for sourced allocation of a polymorphic entity using TRANSPOSE

[dominiq at lps dot ens.fr]

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

--- Comment #8 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Related to/duplicate of pr55824? Still fails for
"allocate(vector,source=pack(array,.true.))".