From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-bugs-return-288390-listarch-gcc-bugs=gcc.gnu.org@gcc.gnu.org>
Received: (qmail 31951 invoked by alias); 9 Jul 2009 14:07:44 -0000
Received: (qmail 31895 invoked by alias); 9 Jul 2009 14:07:31 -0000
Date: Thu, 09 Jul 2009 14:07:00 -0000
Message-ID: <20090709140731.31894.qmail@sourceware.org>
X-Bugzilla-Reason: CC
References: <bug-40646-13404@http.gcc.gnu.org/bugzilla/>
Subject: [Bug fortran/40646] [F03] array-valued procedure pointer components
In-Reply-To: <bug-40646-13404@http.gcc.gnu.org/bugzilla/>
Reply-To: gcc-bugzilla@gcc.gnu.org
To: gcc-bugs@gcc.gnu.org
From: "janus at gcc dot gnu dot org" <gcc-bugzilla@gcc.gnu.org>
Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm
Precedence: bulk
List-Id: <gcc-bugs.gcc.gnu.org>
List-Archive: <http://gcc.gnu.org/ml/gcc-bugs/>
List-Post: <mailto:gcc-bugs@gcc.gnu.org>
List-Help: <mailto:gcc-bugs-help@gcc.gnu.org>
Sender: gcc-bugs-owner@gcc.gnu.org
X-SW-Source: 2009-07/txt/msg00771.txt.bz2



------- 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