[Patch, Fortran] PR40427: [F03] Procedure Pointer Components with OPTIONAL arguments

[Janus Weil]

>> 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  Janus Weil  <janus@gcc.gnu.org>
>
>        PR fortran/40427
>        * gfortran.h (gfc_component): New member 'formal_ns'.
>        (gfc_copy_formal_args_ppc,void gfc_ppc_use): New.
>        * interface.c (gfc_ppc_use): New function, analogous to
>        gfc_procedure_use, but for procedure pointer components.
>        * module.c (MOD_VERSION): Bump module version.
>        (mio_component): Treat formal arguments.
>        (mio_formal_arglist): Changed argument from gfc_symbol to
>        gfc_formal_arglist.
>        (mio_symbol): Changed argument of mio_formal_arglist.
>        * resolve.c (resolve_ppc_call,resolve_expr_ppc): Call gfc_ppc_use,
>        to check actual arguments and treat formal args correctly.
>        (resolve_fl_derived): Copy formal args of procedure pointer components
>        from their interface.
>        * symbol.c (gfc_copy_formal_args_ppc): New function, analogous to
>        gfc_copy_formal_args, but for procedure pointer components.
>
>
> 2009-06-24  Janus Weil  <janus@gcc.gnu.org>
>
>        PR fortran/40427
>        * gfortran.dg/proc_ptr_comp_11.f90: New.
>