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

["paul dot richard dot thomas at gmail dot com" <gcc-bugzilla at gcc dot gnu dot org>]

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