[Bug fortran/55199] [OOP] Equivalenced variable has wrong type when used with generic member function

[janus at gcc dot gnu.org]

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



--- Comment #2 from janus at gcc dot gnu.org 2012-11-04 11:23:28 UTC ---

Further compactified version of the test case:



module assoc_err_m

  implicit none

  type :: foo_t

   contains

     procedure :: func_1

     generic   :: func => func_1

  end type

contains

  real function func_1 (this)

    class(foo_t), intent(in) :: this

  end function

end module



program assoc_err

  use assoc_err_m

  implicit none

  type(foo_t) :: f

  associate(b => f%func())

    print *, 1. + b

  end associate

end program