From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 14305 invoked by alias); 7 Jun 2013 13:33:51 -0000 Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org Received: (qmail 14252 invoked by uid 89); 7 Jun 2013 13:33:50 -0000 X-Spam-SWARE-Status: No, score=-2.2 required=5.0 tests=AWL,BAYES_00,RCVD_IN_DNSWL_NONE,TW_FN autolearn=ham version=3.3.1 X-Spam-User: qpsmtpd, 2 recipients Received: from mx01.qsc.de (HELO mx01.qsc.de) (213.148.129.14) by sourceware.org (qpsmtpd/0.84/v0.84-167-ge50287c) with ESMTP; Fri, 07 Jun 2013 13:33:49 +0000 Received: from archimedes.net-b.de (port-92-195-31-211.dynamic.qsc.de [92.195.31.211]) by mx01.qsc.de (Postfix) with ESMTP id 022663CA56; Fri, 7 Jun 2013 15:33:45 +0200 (CEST) Message-ID: <51B1E139.6020301@net-b.de> Date: Fri, 07 Jun 2013 13:33:00 -0000 From: Tobias Burnus User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:17.0) Gecko/20130510 Thunderbird/17.0.6 MIME-Version: 1.0 To: gcc patches , gfortran Subject: [Patch, Fortran, committed] PR57556 - Fix ordering issue in gfc_build_final_call Content-Type: multipart/mixed; boundary="------------090009050204040006020409" X-Virus-Found: No X-SW-Source: 2013-06/txt/msg00400.txt.bz2 This is a multi-part message in MIME format. --------------090009050204040006020409 Content-Type: text/plain; charset=ISO-8859-15; format=flowed Content-Transfer-Encoding: 7bit Content-length: 169 It helps to initialize a block before calling "gfc_add_block_to_block (&block" ... Committed as Rev. 199812 after building and regtesting on x86-64-gnu-linux. Tobias --------------090009050204040006020409 Content-Type: text/x-patch; name="committed.diff" Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename="committed.diff" Content-length: 1163 Index: gcc/fortran/ChangeLog =================================================================== --- gcc/fortran/ChangeLog (Revision 199811) +++ gcc/fortran/ChangeLog (Arbeitskopie) @@ -1,3 +1,8 @@ +2013-06-07 Tobias Burnus + + PR fortran/57556 + * trans.c (gfc_build_final_call): Init block before use. + 2013-06-06 Tobias Burnus PR fortran/57542 Index: gcc/fortran/trans.c =================================================================== --- gcc/fortran/trans.c (Revision 199811) +++ gcc/fortran/trans.c (Arbeitskopie) @@ -852,6 +852,7 @@ gfc_build_final_call (gfc_typespec ts, gfc_expr *f gcc_assert (final_wrapper->expr_type == EXPR_VARIABLE); gcc_assert (var); + gfc_start_block (&block); gfc_init_se (&se, NULL); gfc_conv_expr (&se, final_wrapper); final_fndecl = se.expr; @@ -936,7 +937,6 @@ gfc_build_final_call (gfc_typespec ts, gfc_expr *f if (!POINTER_TYPE_P (TREE_TYPE (array))) array = gfc_build_addr_expr (NULL, array); - gfc_start_block (&block); gfc_add_block_to_block (&block, &se.pre); tmp = build_call_expr_loc (input_location, final_fndecl, 3, array, --------------090009050204040006020409--