[Bug fortran/45290] [F08] pointer initialization

[janus at gcc dot gnu dot org]

------- Comment #4 from janus at gcc dot gnu dot org  2010-08-18 22:32 -------
Subject: Bug 45290

Author: janus
Date: Wed Aug 18 22:32:22 2010
New Revision: 163356

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

        PR fortran/45290
        * gfortran.h (gfc_add_save): Modified prototype.
        * decl.c (add_init_expr_to_sym): Defer checking of proc pointer init.
        (match_pointer_init): New function to match F08 pointer initialization.
        (variable_decl,match_procedure_decl,match_ppc_decl): Use
        'match_pointer_init'.
        (match_attr_spec): Module variables are implicitly SAVE.
        (gfc_match_save): Modified call to 'gfc_add_save'.
        * expr.c (gfc_check_assign_symbol): Extra checks for pointer
        initialization.
        * primary.c (gfc_variable_attr): Handle SAVE attribute.
        * resolve.c (resolve_structure_cons): Add new argument and do pointer
        initialization checks.
        (gfc_resolve_expr): Modified call to 'resolve_structure_cons'.
        (resolve_values): Call 'resolve_structure_cons' directly with init arg.
        (resolve_fl_variable): Handle SAVE_IMPLICIT.
        * symbol.c (gfc_add_save,gfc_copy_attr,save_symbol): Handle
        SAVE_IMPLICIT.
        * trans-decl.c (gfc_create_module_variable): Module variables with
        TARGET can already exist.
        * trans-expr.c (gfc_conv_variable): Check for 'current_function_decl'.
        (gfc_conv_initializer): Implement non-NULL pointer
        initialization.


2010-08-19  Janus Weil  <janus@gcc.gnu.org>

        PR fortran/45290
        * gfortran.dg/proc_ptr_comp_3.f90: Modified.
        * gfortran.dg/pointer_init_2.f90: New.
        * gfortran.dg/pointer_init_3.f90: New.
        * gfortran.dg/pointer_init_4.f90: New.

Added:
    trunk/gcc/testsuite/gfortran.dg/pointer_init_2.f90
    trunk/gcc/testsuite/gfortran.dg/pointer_init_3.f90
    trunk/gcc/testsuite/gfortran.dg/pointer_init_4.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/decl.c
    trunk/gcc/fortran/expr.c
    trunk/gcc/fortran/gfortran.h
    trunk/gcc/fortran/primary.c
    trunk/gcc/fortran/resolve.c
    trunk/gcc/fortran/symbol.c
    trunk/gcc/fortran/trans-decl.c
    trunk/gcc/fortran/trans-expr.c
    trunk/gcc/testsuite/ChangeLog
    trunk/gcc/testsuite/gfortran.dg/proc_ptr_comp_3.f90


-- 


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