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

Reply via email to