------- 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
<[email protected]> 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
