[Bug fortran/46849] [OOP] MODULE PROCEDURE resolution does not work in BLOCK or SELECT TYPE

[janus at gcc dot gnu.org]

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

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2010.12.08 13:48:45
     Ever Confirmed|0                           |1

--- Comment #3 from janus at gcc dot gnu.org 2010-12-08 13:48:45 UTC ---
Here is a reduced test case for the rejects-valid part, without CLASS and
ISO_C_BINDING:


  implicit none

  block
    call init(fun)
  end block

contains

  subroutine init(func)
    real, external :: func
  end subroutine

  real function fun()
    fun = 1.1
  end function

end