https://gcc.gnu.org/bugzilla/show_bug.cgi?id=93832
--- Comment #9 from G. Steinmetz <gs...@t-online.de> --- If modified a little, even a release version will suffice : $ cat z2.f90 program p type t character :: a integer :: b(t(1)) end type type(t) :: x = t('a', 2) end