From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mx-relay52-hz2.antispameurope.com (mx-relay52-hz2.antispameurope.com [94.100.136.252]) by sourceware.org (Postfix) with ESMTPS id 9484C3851C29 for ; Sun, 14 Mar 2021 11:04:40 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.3.2 sourceware.org 9484C3851C29 Authentication-Results: sourceware.org; dmarc=none (p=none dis=none) header.from=net-b.de Authentication-Results: sourceware.org; spf=none smtp.mailfrom=prvs=0700b8c1b2=burnus@net-b.de Received: from s041.wsp.plusnet.de ([195.90.7.81]) by mx-relay52-hz2.antispameurope.com; Sun, 14 Mar 2021 12:04:38 +0100 Received: from [192.168.8.102] (tmo-117-141.customers.d1-online.com [80.187.117.141]) by s041.wsp.plusnet.de (Postfix) with ESMTPSA id 706E42C0112; Sun, 14 Mar 2021 12:04:36 +0100 (CET) Subject: Early ping: Re: [Patch] Fortran: Fix func decl mismatch [PR93660] From: Tobias Burnus To: gcc-patches , fortran References: <9d10ed6a-958c-aa97-5172-9d427a8b2b5b@codesourcery.com> Message-ID: <678e2be0-3c24-b998-9b9b-8b417ceee8b0@net-b.de> Date: Sun, 14 Mar 2021 12:04:35 +0100 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:78.0) Gecko/20100101 Thunderbird/78.8.1 MIME-Version: 1.0 In-Reply-To: <9d10ed6a-958c-aa97-5172-9d427a8b2b5b@codesourcery.com> Content-Type: text/plain; charset=utf-8; format=flowed Content-Transfer-Encoding: 8bit Content-Language: en-US X-cloud-security-sender: burnus@net-b.de X-cloud-security-recipient: fortran@gcc.gnu.org X-cloud-security-Virusscan: CLEAN X-cloud-security-disclaimer: This E-Mail was scanned by E-Mailservice on mx-relay52-hz2.antispameurope.com with E973DBA025E X-cloud-security-connect: s041.wsp.plusnet.de[195.90.7.81], TLS=1, IP=195.90.7.81 X-cloud-security-Digest: e5e5580400bd293b8bfd50d82459098d X-cloud-security: scantime:1.188 X-Spam-Status: No, score=-2.5 required=5.0 tests=BAYES_00, KAM_DMARC_STATUS, KAM_LAZY_DOMAIN_SECURITY, RCVD_IN_DNSWL_LOW, RCVD_IN_MSPIKE_H3, RCVD_IN_MSPIKE_WL, SPF_HELO_NONE, SPF_NONE, TXREP autolearn=no autolearn_force=no version=3.4.2 X-Spam-Checker-Version: SpamAssassin 3.4.2 (2018-09-13) on server2.sourceware.org X-BeenThere: fortran@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Fortran mailing list List-Unsubscribe: , List-Archive: List-Help: List-Subscribe: , X-List-Received-Date: Sun, 14 Mar 2021 11:04:42 -0000 Early ping – and minor post script: + hidden_typelist = TREE_CHAIN (hidden_typelist); This change is to avoid running into the ICE: gcc_assert (hidden_typelist == NULL_TREE || TREE_VALUE (hidden_typelist) == void_type_node); The purpose of this assert is to check that the TREE_TYPE (fndecl) arg list and the one created by create_function_arglist (gfc_symbol * sym) are the same (at least in terms of the number of arguments). Namely:   typelist = TYPE_ARG_TYPES (TREE_TYPE (fndecl)); ... hidden_typelist = typelist; Tobias On 11.03.21 18:15, Tobias Burnus wrote: > This fixes an ICE with OpenMP 'omp decare simd' but is a generic bug. > > Namely TREE_TYPE(fndecl) has a mismatch to the arglist chain, > missing some hidden arguments with -fcoarray=lib. > > OK for mainline and GCC 10? > > Tobias > > ----------------- > Mentor Graphics (Deutschland) GmbH, Arnulfstrasse 201, 80634 München > Registergericht München HRB 106955, Geschäftsführer: Thomas Heurung, > Frank Thürauf