[Bug fortran/41139] [4.5 Regression] a procedure pointer call as actual argument

[janus at gcc dot gnu dot org]

------- Comment #17 from janus at gcc dot gnu dot org  2009-08-25 14:27 -------
Subject: Bug 41139

Author: janus
Date: Tue Aug 25 14:26:44 2009
New Revision: 151081

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

        PR fortran/41139
        * primary.c (gfc_match_varspec): Make sure EXPR_PPC is only used for
        calls to procedure pointer components, other references to procedure
        pointer components are EXPR_VARIABLE.
        * resolve.c (resolve_actual_arglist): Bugfix (there can be calls
without
        actual arglist).
        * trans-expr.c (gfc_get_proc_ptr_comp): Renamed to 'get_proc_ptr_comp',
        removed argument 'se' and made static. Avoid inserting a temporary
        variable for calling the PPC.
        (conv_function_val): Renamed gfc_get_proc_ptr_comp.
        (gfc_conv_procedure_call): Distinguish functions returning a procedure
        pointer from calls to a procedure pointer. Distinguish calls to
        procedure pointer components from procedure pointer components as
        actual arguments.
        * trans-stmt.h (gfc_get_proc_ptr_comp): Make it static.


2009-08-25  Janus Weil  <janus@gcc.gnu.org>

        PR fortran/41139
        * gfortran.dg/proc_ptr_25.f90: New.
        * gfortran.dg/proc_ptr_comp_18.f90: New.
        * gfortran.dg/proc_ptr_comp_19.f90: New.


Added:
    trunk/gcc/testsuite/gfortran.dg/proc_ptr_25.f90
    trunk/gcc/testsuite/gfortran.dg/proc_ptr_comp_18.f90
    trunk/gcc/testsuite/gfortran.dg/proc_ptr_comp_19.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/primary.c
    trunk/gcc/fortran/resolve.c
    trunk/gcc/fortran/trans-expr.c
    trunk/gcc/fortran/trans-stmt.h
    trunk/gcc/testsuite/ChangeLog


-- 


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