[Bug fortran/41706] [OOP] Calling one TBP as an actual argument of another TBP

[janus at gcc dot gnu dot org]

------- Comment #3 from janus at gcc dot gnu dot org  2009-10-20 11:30 -------
Reopening. Salvatore's code still fails with the same error, which is due to
the analogous case with a subroutine:

module m

type :: t
contains
  procedure, nopass :: a
  procedure, nopass :: b
end type

contains

  subroutine a (x)
    real :: x
    print *,x
  end subroutine

  real function b ()
    b = 3.
  end function

  subroutine s
    class(t),allocatable :: x
    real :: r
    allocate(x)
    call x%a(x%b())   ! fails
  end subroutine

end


-- 

janus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|RESOLVED                    |UNCONFIRMED
         Resolution|FIXED                       |


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