https://gcc.gnu.org/bugzilla/show_bug.cgi?id=67616
--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fort...@t-online.de> --- Compiles without block : program p type t end type type(t) :: x data x /t()/ end Compiles with block and intrinsic type : program p block integer :: x data x /1/ end block end