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

G. Steinmetz <gs...@t-online.de> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |ice-on-invalid-code

--- Comment #1 from G. Steinmetz <gs...@t-online.de> ---

Additional test cases :


$ cat z2.f90
program p
   type t
      integer :: a = 1
   end type
   type(t), pointer :: x
   data x /t(2)/
end


$ cat z3.f90
program p
   type t
   end type
   type(t), pointer :: x
   data x /t()/
end


$ cat z4.f90
type t
end type
type(t), pointer :: x
data x /
end

Reply via email to