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

[paul dot richard dot thomas at gmail dot com]

------- Comment #4 from paul dot richard dot thomas at gmail dot com  2009-10-20 12:19 -------
Subject: Re:  [OOP] Calling one TBP as an actual argument 
        of another TBP

Oh bother!  I completely forgot to test the subroutine branch - thanks Janus

On Tue, Oct 20, 2009 at 1:30 PM, janus at gcc dot gnu dot org
<gcc-bugzilla@gcc.gnu.org> wrote:
>
>
> ------- 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
>
> ------- You are receiving this mail because: -------
> You are on the CC list for the bug, or are watching someone who is.
>


-- 


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