From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mail-oa1-x31.google.com (mail-oa1-x31.google.com [IPv6:2001:4860:4864:20::31]) by sourceware.org (Postfix) with ESMTPS id 4446E3858D1E; Tue, 20 Jun 2023 16:19:20 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org 4446E3858D1E Authentication-Results: sourceware.org; dmarc=pass (p=none dis=none) header.from=gmail.com Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=gmail.com Received: by mail-oa1-x31.google.com with SMTP id 586e51a60fabf-19a427d7b57so3175074fac.2; Tue, 20 Jun 2023 09:19:20 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20221208; t=1687277959; x=1689869959; h=to:subject:message-id:date:from:mime-version:from:to:cc:subject :date:message-id:reply-to; bh=hltUqw8zCfmM0egE4HX1vvIE5SPnH1SdSNVzBFxtRSA=; b=s2a9YDJ3+oLtsaX73AwZ7b9AaQRxuWz+OnkmSrl+1Po/OWcfIvcmU1hVyHWHWyP73d IRenhUySEeIZnircQnIbAu6/gYA9GkQOpAr5BvPxD8h0wa9LeONULmlVGoeQe+D/pCQd K6A40Ym7PXInbwwc12kPn+hdfDx7jhPPF30k9p4JnUSP5YQiVB8JawuT8etEZMn8KBe5 mnuc+x/c7q6Om8g+DCwyvxc0BnfQ9jrFbW69NDo/HcVD8b4wNWof/3aEV1c4sBruXyu4 N6ZE3JNX1yv7Fft28+QHCK6JYUbFb5LPZvB3rPs1zwKPCRADH2i59cJxrjR1RxK8MZRs ouSQ== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20221208; t=1687277959; x=1689869959; h=to:subject:message-id:date:from:mime-version:x-gm-message-state :from:to:cc:subject:date:message-id:reply-to; bh=hltUqw8zCfmM0egE4HX1vvIE5SPnH1SdSNVzBFxtRSA=; b=JFIzsDh0OAJ1H0+2RZsr/rq9lKLYBAp2/rDgVkY2S94YMqBvufm3jsaKAyb72JEaEM mF8Hh/tlikePh7H53MATzi7qPSX51mBeOMnJVmmVEvHSiAJe9LIO2u2o9ZL3BeA1vign tBBSPiSYktY3vJzHHkvshADvF3gQ5nHahRzoMMAVRcOj5dYq0UhecOoYLUxAlrWjYUR+ 9e03VDL8XHIjdAchXZ4fugRbEaDj5fyZzUKvaGmhOGdm9vf450xTtsWEvmBO0K040GI+ zbgPPPgoRqj7Q1+w5u8sXaDAfINdJPP91w2Pn9SX0Q4hIsS6YCo5BE+4bj/cfQbWcYwo NW3g== X-Gm-Message-State: AC+VfDw8JtLcUvPAh1sKqXVJrBQ4yxB+gZxlbuMVJANkLGQfFrfXudRs ame7Na9iL5Lj6y05Y+XgklEKtBjspo/Pj5miAMGWsZhw X-Google-Smtp-Source: ACHHUZ4KT6yfKEwecI5bnNnDZck2E4Vd8fPUrhFgM3peMZ4NXGwvRWnx8vTRO2NlQukqVy/gYN2kKLw7jmsLIryrpQg= X-Received: by 2002:a05:6808:1410:b0:39c:cd8b:61f3 with SMTP id w16-20020a056808141000b0039ccd8b61f3mr12636970oiv.16.1687277958829; Tue, 20 Jun 2023 09:19:18 -0700 (PDT) MIME-Version: 1.0 From: Paul Richard Thomas Date: Tue, 20 Jun 2023 17:19:07 +0100 Message-ID: Subject: [Patch, fortran] PR108961 - Segfault when associating to pointer from C_F_POINTER To: "fortran@gcc.gnu.org" , gcc-patches Content-Type: multipart/mixed; boundary="0000000000006065ac05fe92035b" X-Spam-Status: No, score=-6.4 required=5.0 tests=BAYES_00,DKIM_SIGNED,DKIM_VALID,DKIM_VALID_AU,DKIM_VALID_EF,FREEMAIL_FROM,GIT_PATCH_0,RCVD_IN_DNSWL_NONE,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: --0000000000006065ac05fe92035b Content-Type: text/plain; charset="UTF-8" Dear All, This patch is verging on obvious. The PR was originally, incorrectly blocking PR87477 and the testcase has remained in my 'associate' directory. I thought that it is time to get shot of it! Is there a better way to detect a type(c_ptr) formal argument? Subject to advice on the question, OK for trunk? Paul --0000000000006065ac05fe92035b Content-Type: text/x-patch; charset="US-ASCII"; name="submit.diff" Content-Disposition: attachment; filename="submit.diff" Content-Transfer-Encoding: base64 Content-ID: X-Attachment-Id: f_lj4hoo4d1 ZGlmZiAtLWdpdCBhL2djYy9mb3J0cmFuL3RyYW5zLWV4cHIuY2MgYi9nY2MvZm9ydHJhbi90cmFu cy1leHByLmNjCmluZGV4IDQ1YTk4NGI2YmRiLi4wODIzZWZkNWFiYyAxMDA2NDQKLS0tIGEvZ2Nj L2ZvcnRyYW4vdHJhbnMtZXhwci5jYworKysgYi9nY2MvZm9ydHJhbi90cmFucy1leHByLmNjCkBA IC03MzUzLDYgKzczNTMsOCBAQCBnZmNfY29udl9wcm9jZWR1cmVfY2FsbCAoZ2ZjX3NlICogc2Us IGdmY19zeW1ib2wgKiBzeW0sCiAJIG5lZWQgdGhlIGxlbmd0aC4gICovCiAgICAgICBpZiAocGFy bXNlLnN0cmluZ19sZW5ndGggIT0gTlVMTF9UUkVFCiAJICAmJiAhc3ltLT5hdHRyLmlzX2JpbmRf YworCSAgJiYgIShmc3ltICYmIGZzeW0tPnRzLnR5cGUgPT0gQlRfREVSSVZFRAorCSAgICAgICAm JiAhc3RyY21wIChmc3ltLT50cy51LmRlcml2ZWQtPm5hbWUsICJjX3B0ciIpKQogCSAgJiYgIShm c3ltICYmIFVOTElNSVRFRF9QT0xZIChmc3ltKSkpCiAJdmVjX3NhZmVfcHVzaCAoc3RyaW5nYXJn cywgcGFybXNlLnN0cmluZ19sZW5ndGgpOwogCg== --0000000000006065ac05fe92035b Content-Type: application/octet-stream; name="Change.Logs" Content-Disposition: attachment; filename="Change.Logs" Content-Transfer-Encoding: base64 Content-ID: X-Attachment-Id: f_lj4hpqjw1 Rm9ydHJhbjogU2VnIGZhdWx0IHBhc3Npbmcgc3RyaW5nIHRvIHR5cGUgY3B0ciBkdW1teSBbUFIx MDg5NjFdLgoKMjAyMy0wNi0yMCAgUGF1bCBUaG9tYXMgIDxwYXVsdEBnY2MuZ251Lm9yZz4KCmdj Yy9mb3J0cmFuCglQUiBmb3J0cmFuLzEwODk2MQoJKiB0cmFucy1leHByLmNjIChnZmNfY29udl9w cm9jZWR1cmVfY2FsbCk6IFRoZSBoaWRkZW4gc3RyaW5nCglsZW5ndGggbXVzdCBub3QgYmUgcGFz c2VkIHRvIGEgZm9ybWFsIGFyZyBvZiB0eXBlKGNwdHIpLgoKZ2NjL3Rlc3RzdWl0ZS8KCVBSIGZv cnRyYW4vMTA4OTYxCgkqIGdmb3J0cmFuLmRnL3ByMTA4OTYxLmY5MDogTmV3IHRlc3QuCg== --0000000000006065ac05fe92035b Content-Type: text/x-fortran; charset="US-ASCII"; name="pr108961.f90" Content-Disposition: attachment; filename="pr108961.f90" Content-Transfer-Encoding: base64 Content-ID: X-Attachment-Id: f_lj4hpyjr2 ISB7IGRnLWRvIHJ1biB9CiEKISBDb250cmlidXRlZCBieSBKZWZmcmV5IEhpbGwgIDxqZWZmcmV5 LnAuaGlsbEBuYXNhLmdvdj4KIQptb2R1bGUgYXNzb2NpYXRlX3B0cgogICAgdXNlIGlzb19jX2Jp bmRpbmcKY29udGFpbnMKICAgIHN1YnJvdXRpbmUgY19mX3N0cnBvaW50ZXIoY3B0ciwgcHRyMikK ICAgICAgICB0eXBlKGNfcHRyKSwgdGFyZ2V0LCBpbnRlbnQoaW4pIDo6IGNwdHIKICAgICAgICBj aGFyYWN0ZXIoa2luZD1jX2NoYXIsbGVuPTQpLCBwb2ludGVyIDo6IHB0cjEKICAgICAgICBjaGFy YWN0ZXIoa2luZD1jX2NoYXIsbGVuPTopLCBwb2ludGVyLCBpbnRlbnQob3V0KSA6OiBwdHIyCiAg ICAgICAgY2FsbCBjX2ZfcG9pbnRlcihjcHRyLCBwdHIxKQogICAgICAgIGlmIChwdHIxIC5uZS4g J2FiY2QnKSBzdG9wIDEKICAgICAgICBwdHIyID0+IHB0cjEgICAgICAgICAgICAgICAgICAgICAg ICAgICAgICAhIEZhaWxlZCBoZXJlCiAgICBlbmQgc3Vicm91dGluZQplbmQgbW9kdWxlCgpwcm9n cmFtIHRlc3RfYXNzb2NpYXRlX3B0cgogICAgdXNlIGFzc29jaWF0ZV9wdHIKICAgIGNoYXJhY3Rl cihraW5kPWNfY2hhciwgbGVuPTEpLCB0YXJnZXQgOjogY2hhcl9hcnJheSg3KQogICAgY2hhcmFj dGVyKGtpbmQ9Y19jaGFyLGxlbj06KSwgcG9pbnRlciA6OiBwdHIyCiAgICBjaGFyX2FycmF5ID0g WydhJywgJ2InLCAnYycsICdkJywgY19udWxsX2NoYXIsICdlJywgJ2YnXQohIFRoZSBmaXJzdCBh cmd1bWVudCB3YXMgcHJvdmlkaW5nIGEgY29uc3RhbnQgaGlkZGVuIHN0cmluZyBsZW5ndGggPT4g c2VnZmF1bHQKICAgIGNhbGwgY19mX3N0cnBvaW50ZXIoY19sb2MoY2hhcl9hcnJheSksIHB0cjIp CiAgICBpZiAocHRyMiAubmUuICdhYmNkJykgc3RvcCAyCmVuZCBwcm9ncmFtCg== --0000000000006065ac05fe92035b--