[Bug fortran/59662] [4.9 Regression] [OOP] TBP subroutine call rejected in connection with BIND(C)

[janus at gcc dot gnu.org]

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

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
      Known to work|                            |4.8.1
           Keywords|                            |rejects-valid
   Last reconfirmed|                            |2014-01-03
                 CC|                            |janus at gcc dot gnu.org
     Ever confirmed|0                           |1
            Summary|[OOP] TBP subroutine call   |[4.9 Regression] [OOP] TBP
                   |rejected in contained       |subroutine call rejected in
                   |subroutine                  |connection with BIND(C)
      Known to fail|                            |4.9.0

--- Comment #1 from janus at gcc dot gnu.org ---
Confirmed. There is some strange interaction with BIND(C). Reduced test case:


module base_mod

  implicit none

  type outer
  contains
    procedure, nopass :: mv_to_base
  end type

contains

  subroutine mv_to_base
  end subroutine

  subroutine foobar
    type(outer) :: a
    integer :: info

    interface 
      integer function try() bind(c)
      end function
    end interface

    call a%mv_to_base()
    info = try()
  end subroutine

end module