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

Tobias Burnus <burnus at gcc dot gnu.org> changed:

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

--- Comment #4 from Tobias Burnus <burnus at gcc dot gnu.org> 2012-01-12 
10:07:47 UTC ---
Further reduced test case. Seems to be related to c_ptr/c_null_ptr. Maybe some
parts of Rev. 181425 iso_c_binding related changes in symbol.c are sufficient?

module sidl_array_array_F03
  use iso_c_binding
  type sidl__array
    type(c_ptr) :: a = c_null_ptr
  end type sidl__array
end module sidl_array_array_F03

module vect_Utils_F03
  use sidl_array_array_F03
contains
  subroutine is_null_s(ext)
    class(sidl__array), intent(in) :: ext
  end subroutine is_null_s
end module vect_Utils_F03

subroutine evalResA(res)
  use vect_Utils_F03
  type (sidl__array) :: res
  call is_null_s(res)
end subroutine evalResA

Reply via email to