------- Comment #2 from fxcoudert at gcc dot gnu dot org  2007-08-08 17:22 
-------
I think it is indeed valid.

  type :: my_type
    integer :: data
  end type my_type

  interface
    subroutine func1(param)
      import :: my_type
      type(my_type) :: param
    end subroutine func1
  end interface

  type(my_type) :: x
end


-- 

fxcoudert at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
           Keywords|                            |rejects-valid
   Last reconfirmed|0000-00-00 00:00:00         |2007-08-08 17:22:43
               date|                            |


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32827

Reply via email to