From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mout.gmx.net (mout.gmx.net [212.227.15.18]) by sourceware.org (Postfix) with ESMTPS id EA4733857C6F; Tue, 13 Feb 2024 19:28:02 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org EA4733857C6F Authentication-Results: sourceware.org; dmarc=pass (p=quarantine dis=none) header.from=gmx.de Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=gmx.de ARC-Filter: OpenARC Filter v1.0.0 sourceware.org EA4733857C6F Authentication-Results: server2.sourceware.org; arc=none smtp.remote-ip=212.227.15.18 ARC-Seal: i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1707852485; cv=none; b=xscYk3yIVuheCIuL/EUkW+dU3VPFK831XQjUNXef4+3ChGqSTljUSfTRGGVZvO1JZVw/MPZTR0EK8lYlRsoiofNT5ac+KbdqzjyT/FGfWHTrK/bgr00pDG0mFe3ewpbuCGCxahHynIsNvwtCvlwL+Jqik56TC4htxVGFOebpkts= ARC-Message-Signature: i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1707852485; c=relaxed/simple; bh=ilkE4O/L/VcgJUwG/9aOK2CEEuxl4PE7N+2wNKDvkJs=; h=DKIM-Signature:Message-ID:Date:MIME-Version:Subject:From:To; b=qKYXSTz2I+Im5gVl4pyL9oRZeXbfgonayI+HY/kheKeCjSVJRuVP/GX6lC/rSvQkwuw8GBM4kC5SfpchpGRkbi50eWZ4cQkxz20ssV5bfyxmEjojN9vycspMi8x3lrFUVbpFafGT0atsKxZy2d3Axay6CdIqa3SqKfLkvts00DU= ARC-Authentication-Results: i=1; server2.sourceware.org DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=gmx.de; s=s31663417; t=1707852481; x=1708457281; i=anlauf@gmx.de; bh=ilkE4O/L/VcgJUwG/9aOK2CEEuxl4PE7N+2wNKDvkJs=; h=X-UI-Sender-Class:Date:Subject:From:To:Cc:References: In-Reply-To; b=mXKatJGMZoZ9lAfjeXemX/Rme7JzvnCNQRCS5yo9Nb+wzN4/LnQAAtEpPv9znyaT 0VWrAAbSNVixU/+p9pttohHm3R/8KSAOjKe1rH13Sr2w6HCyqP57gOWRy478d2TX5 mfMr+sbYVcsS+cxqiGZh1Ze0W+SJ7ci1/XUR7wIk9/LeAzccd8XwNxWbsHJCq5YWm wF9fOUzJ76NPKxVZ2QL3vweUZueRyUSgQlwJnlE7k9GVcD9YdWACqyHXDZX/bfUT9 3Qrg29MZkhpKvl3ZraNP2vk/fTLDFq67yZrPhUVGLMuEQ33U8fBJWRGeN3TOxE1mt ipGJVUJN2+zStuUFsw== X-UI-Sender-Class: 724b4f7f-cbec-4199-ad4e-598c01a50d3a Received: from [192.168.178.29] ([79.232.145.143]) by mail.gmx.net (mrgmx004 [212.227.17.190]) with ESMTPSA (Nemesis) id 1MGQnP-1rlrcy2Vv3-00GnHh; Tue, 13 Feb 2024 20:28:01 +0100 Message-ID: <7b1c29cd-b949-47f1-88ef-9acc058302ad@gmx.de> Date: Tue, 13 Feb 2024 20:28:00 +0100 MIME-Version: 1.0 User-Agent: Mozilla Thunderbird Subject: Re: [PATCH] Fortran: fix passing of optional dummies to bind(c) procedures [PR113866] From: Harald Anlauf To: gcc-patches@gcc.gnu.org Cc: fortran@gcc.gnu.org Newsgroups: gmane.comp.gcc.patches,gmane.comp.gcc.fortran References: <93681591-f729-42ee-ab4e-368f01ddc6ae@gmx.de> Content-Language: en-US In-Reply-To: <93681591-f729-42ee-ab4e-368f01ddc6ae@gmx.de> Content-Type: text/plain; charset=UTF-8; format=flowed Content-Transfer-Encoding: quoted-printable X-Provags-ID: V03:K1:EhyBu9nSGxoGVEwZ1hDRHmcvJET2kFq2JsNPHD9Uv4O8texQtW/ ixF2yjKNDFGa4rxqJWTOaEK/8SeRX03edoV++hpkFlWhaK1+MBQX6BRXZ9TFX5IeZfdWdAT OCikbwtmbpAFjQ2/ITic5hi6twoNROw/TkVH3KH2f+9VCfksYhJQO9ka7hxtlK01PWpxd56 CID7ZlzsQbpJ8HIVTh0Yg== UI-OutboundReport: notjunk:1;M01:P0:nqg67rSZTG4=;oiGWAekiio4DxUDGWYYDSAeb8Uj 08u6wxbM8ZM1kN49Kb7xCOXV1dDQJVAF779C2X3jGLcPRr/QbYViqfj42DlPVhurTcZs4UF3F A12Jt4xhhT+nPj7F7ID04MivhSZHRNCDiu6Tmb07PcoJACU2Gqm1ruxTdJJ3g7Bq06jwAiJg1 XWzMLqkJJkL73dtv9unULEqA1I41DHWU5sxEeT63wtWk8cKtRq+ovVvfAfi5zXp3oBPTGuocn K82b/wjmb6t7J5SnBCtzCmHN43LOkBoI/gnf1oQjIAFunbs6RO2cRQYYdS7DpvbVvFAmV7Zom 0joPUBLYL0XqifRoaoDEvVzjdhMD7nJ3oyCbyAOyQ9pz5bbDDlByxZDKcgiCNJwFY7O2wpTYL S1ZDNYAWU9JKgGAGFeEfl4Bzc8P1y6N3jSzQhnDXsYAvzOxzU5YhOOjsxdkL6Ru7A9rwRk8/l twLRG1RrmnBKXPXtcqa311aPXTN6ZklgH1/h7ekZzrAd1dzzJ0RUC+1JfGXoxGFtXqtpXo9gS JBoMgobXpmcjMBNiJWPlxGv81KBzZsulbMwzoWdB3SANa8CMmXgQsf2Gzz6wm3wCrpVI7FJWB SJqbnCu859sTwlctFQ/V8J3X/NHDQwE2v4yZo49aeIzRPMUTHEiN1bTPo2MvEstqAr2RskCD4 sO0AsrxwYKpjffu1zHEbClUZEYx9EsZYkY4SAAQGvVvUpbhEPcN4k6G1bU1XQZ29kU3zhO2Ih hIMWGWpn+1kptaK1RBYCdFbbX43HbxFC7E+kqGz6mW3Ds593zDg4nvb1m7+mwg+Tmuetw+yhw fliqfJ9PHfXcBB/Dd2GdSH9lq9MsPud49nNfI+GxVMckQ= X-Spam-Status: No, score=-3.4 required=5.0 tests=BAYES_00,BODY_8BITS,DKIM_SIGNED,DKIM_VALID,DKIM_VALID_AU,DKIM_VALID_EF,FREEMAIL_FROM,KAM_SHORT,RCVD_IN_DNSWL_LOW,RCVD_IN_MSPIKE_H3,RCVD_IN_MSPIKE_WL,SPF_HELO_NONE,SPF_PASS,TXREP,T_SCC_BODY_TEXT_LINE autolearn=ham autolearn_force=no version=3.4.6 X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on server2.sourceware.org List-Id: Am 13.02.24 um 19:13 schrieb Harald Anlauf: > indeed the new testcase just regressed due to commit > r14-8947-g6caec7d9ec37e6 ... :-( > > Reduced testcase which fails on trunk: > > program p > =C2=A0 implicit none > =C2=A0 integer, parameter :: n =3D 100, l =3D 10 > =C2=A0 character(l) :: a =3D 'a234567890', b(n) =3D 'bcdefghijk' > =C2=A0 character(:), allocatable :: d, e(:) > =C2=A0 allocate (d, source=3Da) > =C2=A0 allocate (e, source=3Db) > =C2=A0 print *, len (d), len (e), size (e) > =C2=A0 call not_bindc_optional_deferred (d, e) > =C2=A0 deallocate (d, e) > contains > =C2=A0 subroutine not_bindc_optional_deferred (c5, c6) > =C2=A0=C2=A0=C2=A0 character(:), allocatable, optional :: c5, c6(:) > =C2=A0=C2=A0=C2=A0 if (.not. present (c5) .or. .not. present (c6)) stop= 6 > =C2=A0=C2=A0=C2=A0 print *, len (c5), len (c6), size (c6) > =C2=A0=C2=A0=C2=A0 if (len (c5) /=3D l .or. len (c6) /=3D l) stop 84 > =C2=A0 end > end > > Expected: > > =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 10=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 10=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0 100 > =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 10=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 10=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0 100 > > After above commit: > > =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 10=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 10=C2=A0=C2=A0=C2=A0=C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0 100 > =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 10=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0 100 > STOP 84 This is now tracked as:: https://gcc.gnu.org/bugzilla/show_bug.cgi?id=3D113911 > Will have to wait until the cause is found and fixed... As it is sufficient to disable the deferred-length test, I've done that and pushed the amended patch as https://gcc.gnu.org/g:f4935df217ad89f884f908f39086b322e80123d0 Thanks, Harald