From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 28981 invoked by alias); 5 Jul 2009 19:14:24 -0000 Received: (qmail 28926 invoked by alias); 5 Jul 2009 19:14:11 -0000 Date: Sun, 05 Jul 2009 19:14:00 -0000 Message-ID: <20090705191411.28925.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug fortran/40646] ICE assigning array return value from type-bound procedure In-Reply-To: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "pault at gcc dot gnu dot org" Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Archive: List-Post: List-Help: Sender: gcc-bugs-owner@gcc.gnu.org X-SW-Source: 2009-07/txt/msg00404.txt.bz2 ------- Comment #5 from pault at gcc dot gnu dot org 2009-07-05 19:14 ------- Subject: Bug 40646 Author: pault Date: Sun Jul 5 19:13:59 2009 New Revision: 149262 URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=149262 Log: 2009-07-05 Paul Thomas and Tobias Burnus PR fortran/40646 * gfortran.h : Change the compcall member of the 'value' union in the gfc_expr structure so that its fields overlap with the 'function' member. * resolve.c (resolve_compcall): Set the function.esym. * trans-expr.c (gfc_trans_arrayfunc_assign): Use is_proc_ptr_comp in the condition. * dependency.c (gfc_full_array_ref_p): Ensure that 'contiguous' retunrs a value if non-NULL. 2009-07-05 Paul Thomas and Tobias Burnus PR fortran/40646 * gfortran.dg/func_assign_3.f90 : New test. Added: trunk/gcc/testsuite/gfortran.dg/func_assign_3.f90 Modified: trunk/gcc/fortran/dependency.c trunk/gcc/fortran/gfortran.h trunk/gcc/fortran/resolve.c trunk/gcc/fortran/trans-expr.c -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40646