From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-bugs-return-408401-listarch-gcc-bugs=gcc.gnu.org@gcc.gnu.org>
Received: (qmail 15821 invoked by alias); 1 Dec 2012 08:01:00 -0000
Received: (qmail 15658 invoked by uid 55); 1 Dec 2012 08:00:37 -0000
From: "pault at gcc dot gnu.org" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [Bug fortran/46897] [OOP] type-bound defined ASSIGNMENT(=) not used for derived type component in intrinsic assign
Date: Sat, 01 Dec 2012 08:01:00 -0000
X-Bugzilla-Reason: CC
X-Bugzilla-Type: changed
X-Bugzilla-Watch-Reason: None
X-Bugzilla-Product: gcc
X-Bugzilla-Component: fortran
X-Bugzilla-Keywords: wrong-code
X-Bugzilla-Severity: normal
X-Bugzilla-Who: pault at gcc dot gnu.org
X-Bugzilla-Status: NEW
X-Bugzilla-Priority: P3
X-Bugzilla-Assigned-To: pault at gcc dot gnu.org
X-Bugzilla-Target-Milestone: ---
X-Bugzilla-Changed-Fields:
Message-ID: <bug-46897-4-7wV4MMeGp1@http.gcc.gnu.org/bugzilla/>
In-Reply-To: <bug-46897-4@http.gcc.gnu.org/bugzilla/>
References: <bug-46897-4@http.gcc.gnu.org/bugzilla/>
X-Bugzilla-URL: http://gcc.gnu.org/bugzilla/
Auto-Submitted: auto-generated
Content-Type: text/plain; charset="UTF-8"
MIME-Version: 1.0
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: 2012-12/txt/msg00009.txt.bz2


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

--- Comment #9 from Paul Thomas <pault at gcc dot gnu.org> 2012-12-01 08:00:32 UTC ---
Author: pault
Date: Sat Dec  1 08:00:22 2012
New Revision: 194016

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=194016
Log:
2012-12-01   Alessandro Fanfarillo <alessandro.fanfarillo@gmail.com>
             Paul Thomas  <pault@gcc.gnu.org>

    PR fortran/46897
    * gfortran.h : Add bit field 'defined_assign_comp' to
    symbol_attribute structure.
    Add primitive for gfc_add_full_array_ref.
    * expr.c (gfc_add_full_array_ref): New function.
    (gfc_lval_expr_from_sym): Call new function.
    * resolve.c (add_comp_ref): New function.
    (build_assignment): New function.
    (get_temp_from_expr): New function
    (add_code_to_chain): New function
    (generate_component_assignments): New function that calls all
    the above new functions.
    (resolve_code): Call generate_component_assignments.
    (check_defined_assignments): New function.
    (resolve_fl_derived0): Call check_defined_assignments.
    (gfc_resolve): Reset component_assignment_level in case it is
    left in a bad state by errors.


    * resolve.c (is_sym_host_assoc, resolve_procedure_interface,
    resolve_contained_fntype, resolve_procedure_expression,
    resolve_elemental_actual, resolve_global_procedure,
    is_scalar_expr_ptr, gfc_iso_c_func_interface, resolve_function,
    set_name_and_label, gfc_iso_c_sub_interface,
    resolve_specific_s0, resolve_operator, compare_bound_mpz_t,
    gfc_resolve_character_operator, resolve_typebound_function,
    gfc_resolve_expr, forall_index, remove_last_array_ref,
    conformable_arrays, resolve_allocate_expr,
    resolve_allocate_deallocate, resolve_select_type,
    resolve_transfer, resolve_where,
    gfc_resolve_where_code_in_forall, gfc_resolve_forall_body,
    gfc_count_forall_iterators, resolve_values,
    resolve_bind_c_comms, resolve_bind_c_derived_types,
    gfc_verify_binding_labels, apply_default_init,
    build_default_init_expr, apply_default_init_local,
    resolve_fl_var_and_proc, resolve_fl_procedure,
    gfc_resolve_finalizers, check_generic_tbp_ambiguity,
    resolve_typebound_intrinsic_op, resolve_typebound_procedure,
    resolve_typebound_procedures, ensure_not_abstract,
    resolve_fl_derived0, resolve_fl_parameter, resolve_symbol,
    resolve_equivalence_derived): Remove trailing white space.
    * gfortran.h : Remove trailing white space.

2012-12-01   Alessandro Fanfarillo <alessandro.fanfarillo@gmail.com>
             Paul Thomas  <pault@gcc.gnu.org>

    PR fortran/46897
    * gfortran.dg/defined_assignment_1.f90: New test.
    * gfortran.dg/defined_assignment_2.f90: New test.
    * gfortran.dg/defined_assignment_3.f90: New test.
    * gfortran.dg/defined_assignment_4.f90: New test.
    * gfortran.dg/defined_assignment_5.f90: New test.


Added:
    trunk/gcc/testsuite/gfortran.dg/defined_assignment_1.f90
    trunk/gcc/testsuite/gfortran.dg/defined_assignment_2.f90
    trunk/gcc/testsuite/gfortran.dg/defined_assignment_3.f90
    trunk/gcc/testsuite/gfortran.dg/defined_assignment_4.f90
    trunk/gcc/testsuite/gfortran.dg/defined_assignment_5.f90
Modified:
    trunk/gcc/fortran/ChangeLog
    trunk/gcc/fortran/expr.c
    trunk/gcc/fortran/gfortran.h
    trunk/gcc/fortran/resolve.c
    trunk/gcc/testsuite/ChangeLog