[Bug fortran/40646] [F03] array-valued procedure pointer components

["janus at gcc dot gnu dot org" <gcc-bugzilla@gcc.gnu.org>]

------- Comment #7 from janus at gcc dot gnu dot org  2009-07-09 14:07 -------
Subject: Bug 40646

Author: janus
Date: Thu Jul  9 14:07:03 2009
New Revision: 149419

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=149419
Log:
2009-07-09  Janus Weil  <janus@gcc.gnu.org>

        PR fortran/40646
        * dump-parse-tree.c (show_expr): Renamed 'is_proc_ptr_comp'.
        * expr.c (is_proc_ptr_comp): Renamed to 'gfc_is_proc_ptr_comp'.
        (gfc_check_pointer_assign): Renamed 'is_proc_ptr_comp'.
        (replace_comp,gfc_expr_replace_comp): New functions, analogous
        to 'replace_symbol' and 'gfc_expr_replace_symbol', just with components
        instead of symbols.
        * gfortran.h (gfc_expr_replace_comp): New prototype.
        (is_proc_ptr_comp): Renamed to 'gfc_is_proc_ptr_comp'.
        * interface.c (compare_actual_formal): Renamed 'is_proc_ptr_comp'.
        * match.c (gfc_match_pointer_assignment): Ditto.
        * primary.c (gfc_match_varspec): Handle array-valued procedure pointers
        and procedure pointer components. Renamed 'is_proc_ptr_comp'.
        * resolve.c (resolve_fl_derived): Correctly handle interfaces with
        RESULT statement, and handle array-valued procedure pointer components.
        (resolve_actual_arglist,resolve_ppc_call,resolve_expr_ppc): Renamed
        'is_proc_ptr_comp'.
        * trans-array.c (gfc_walk_function_expr): Ditto.
        * trans-decl.c (gfc_get_symbol_decl): Security check for presence of
        ns->proc_name.
        * trans-expr.c (gfc_conv_procedure_call): Handle array-valued procedure
        pointer components. Renamed 'is_proc_ptr_comp'.
        (conv_function_val,gfc_trans_arrayfunc_assign): Renamed
        'is_proc_ptr_comp'.
        (gfc_get_proc_ptr_comp): Do not modify the argument 'e', but instead
        make a copy of it.
        * trans-io.c (gfc_trans_transfer): Handle array-valued procedure
        pointer components.


2009-07-09  Janus Weil  <janus@gcc.gnu.org>

        PR fortran/40646
        * gfortran.dg/proc_ptr_22.f90: New.
        * gfortran.dg/proc_ptr_comp_12.f90: New.


Added:
    trunk/gcc/testsuite/gfortran.dg/proc_ptr_22.f90
    trunk/gcc/testsuite/gfortran.dg/proc_ptr_comp_12.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/dump-parse-tree.c
    trunk/gcc/fortran/expr.c
    trunk/gcc/fortran/gfortran.h
    trunk/gcc/fortran/interface.c
    trunk/gcc/fortran/match.c
    trunk/gcc/fortran/primary.c
    trunk/gcc/fortran/resolve.c
    trunk/gcc/fortran/trans-array.c
    trunk/gcc/fortran/trans-decl.c
    trunk/gcc/fortran/trans-expr.c
    trunk/gcc/fortran/trans-io.c
    trunk/gcc/testsuite/ChangeLog


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40646