[prev in list] [next in list] [prev in thread] [next in thread] 

List:       gcc-fortran
Subject:    Re: [Patch, Fortran] PR40427: [F03] Procedure Pointer Components with  	OPTIONAL arguments
From:       Janus Weil <janus () gcc ! gnu ! org>
Date:       2009-06-24 11:08:52
Message-ID: 854832d40906240408o741a377u5d3295e5b68859ba () mail ! gmail ! com
[Download RAW message or body]

>> Otherwise it looks OK to me.
>
> I'll take this as an approval and commit later today.

Committed as r148906.

Cheers,
Janus


> 2009-06-24 =A0Janus Weil =A0<janus@gcc.gnu.org>
>
> =A0 =A0 =A0 =A0PR fortran/40427
> =A0 =A0 =A0 =A0* gfortran.h (gfc_component): New member 'formal_ns'.
> =A0 =A0 =A0 =A0(gfc_copy_formal_args_ppc,void gfc_ppc_use): New.
> =A0 =A0 =A0 =A0* interface.c (gfc_ppc_use): New function, analogous to
> =A0 =A0 =A0 =A0gfc_procedure_use, but for procedure pointer components.
> =A0 =A0 =A0 =A0* module.c (MOD_VERSION): Bump module version.
> =A0 =A0 =A0 =A0(mio_component): Treat formal arguments.
> =A0 =A0 =A0 =A0(mio_formal_arglist): Changed argument from gfc_symbol to
> =A0 =A0 =A0 =A0gfc_formal_arglist.
> =A0 =A0 =A0 =A0(mio_symbol): Changed argument of mio_formal_arglist.
> =A0 =A0 =A0 =A0* resolve.c (resolve_ppc_call,resolve_expr_ppc): Call gfc_=
ppc_use,
> =A0 =A0 =A0 =A0to check actual arguments and treat formal args correctly.
> =A0 =A0 =A0 =A0(resolve_fl_derived): Copy formal args of procedure pointe=
r components
> =A0 =A0 =A0 =A0from their interface.
> =A0 =A0 =A0 =A0* symbol.c (gfc_copy_formal_args_ppc): New function, analo=
gous to
> =A0 =A0 =A0 =A0gfc_copy_formal_args, but for procedure pointer components.
>
>
> 2009-06-24 =A0Janus Weil =A0<janus@gcc.gnu.org>
>
> =A0 =A0 =A0 =A0PR fortran/40427
> =A0 =A0 =A0 =A0* gfortran.dg/proc_ptr_comp_11.f90: New.
>

[prev in list] [next in list] [prev in thread] [next in thread]