------- 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