diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2009-06-24 12:59:56 +0200 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2009-06-24 12:59:56 +0200 |
| commit | 7e196f892ae1e8238a36a2adbc210c394c089d2d (patch) | |
| tree | a8542fe2b693d75e3d9116f00704aa7e5a014c21 /gcc/config/m32c/m32c.h | |
| parent | e1f3cb584d01e98206cea8feeb094ca025534ff7 (diff) | |
| download | gcc-7e196f892ae1e8238a36a2adbc210c394c089d2d.zip gcc-7e196f892ae1e8238a36a2adbc210c394c089d2d.tar.gz gcc-7e196f892ae1e8238a36a2adbc210c394c089d2d.tar.bz2 | |
re PR fortran/40427 ([F03] Procedure Pointer Components with OPTIONAL arguments)
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.
From-SVN: r148906
Diffstat (limited to 'gcc/config/m32c/m32c.h')
0 files changed, 0 insertions, 0 deletions