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 5E91B3858439; Wed, 21 Jun 2023 16:08:53 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org 5E91B3858439 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-1acdfbe1c78so2340412fac.2; Wed, 21 Jun 2023 09:08:53 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20221208; t=1687363733; x=1689955733; h=content-transfer-encoding:cc:to:subject:message-id:date:from :in-reply-to:references:mime-version:from:to:cc:subject:date :message-id:reply-to; bh=gtwaHWz4qSBn+WINOxI5M22GtDz5zZUjZdU6e6vge5k=; b=Tv2v1tm9ZJZQJbf35rPDb001NBJ/RLKZYUs1bnONCRJ5Cs6q2686c/o/UU1RfDr4im rBdATjagLPQXWQ3zpZDVHrt9Py/GyJForIs+xp8O+yAcEyZC7+3tUp0wf716Jw3CROWK KZS1caCVYILl8hCOFVv6/iAzPcNdZHN7Es9Gf+0Qi/aEDd3VvhwVoYnQdRmuG7KYQH2W Ju/Wy+EI0v8AKBB3dv/X5l1Y/T0cgtl2UeXQIZb+JVoP40sJ8onUAfYUF3PL4v4qqDIb AXXJo0UpQPqS3apjdwUJhupH6heaUSDw9+GZ3KZAUNIEM0mYiehK/tChbY/sDB0zJ5qQ d/wQ== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20221208; t=1687363733; x=1689955733; h=content-transfer-encoding:cc:to:subject:message-id:date:from :in-reply-to:references:mime-version:x-gm-message-state:from:to:cc :subject:date:message-id:reply-to; bh=gtwaHWz4qSBn+WINOxI5M22GtDz5zZUjZdU6e6vge5k=; b=WvuEhmkncoHpI3lupCyD5MnOdAxjuxwbIIfddKGWLH/LIrGp9rVp0xYCB/OGFgBIb2 Gv+oEW7Gx2PBOglvwq2fRb0eJpoHhqb9+xSnQbJlTNczRUQHCT7GCothYKyADczbaGPd ui/Cfrez3Z2uGo/G0zAWVjXqm136PXsPcBBpR+3WS89LJjJDr0UNLZIqDeZ/zmhz90rd W/cfO3n8Cp0xDcvCaM4y5kyZvk0jPyo+eUNXVIVL91XNFZa8UpjRGbuiTpEDtfpQCz4h d58ScZF5W3GcI3VjsDHMscs5h2mM4Q6MmlB5VjZfv1oYgSujXpKjRxIU8Eq3hdYp0YW7 ST/A== X-Gm-Message-State: AC+VfDxbzDKAwC0K86wYw9zvqTS+nOIXiRXSuNDRgdVo+p5R4486qc6/ CkbyrhhpR/GlCpXTfekY7iwokVsIGUPlGFDOwFk= X-Google-Smtp-Source: ACHHUZ4W328q1Tx0IQ6YacAIXYXdZwLAis6mp0lCXepxtOE+HkicK0QSzXJgPo2mKLcaoIvqnI9rEkfDPHF/G4MEKA4= X-Received: by 2002:a05:6870:713:b0:1ad:1500:811a with SMTP id ea19-20020a056870071300b001ad1500811amr1815547oab.23.1687363732709; Wed, 21 Jun 2023 09:08:52 -0700 (PDT) MIME-Version: 1.0 References: <55395a67-3f4c-0163-866b-a13e7be4d235@orange.fr> In-Reply-To: <55395a67-3f4c-0163-866b-a13e7be4d235@orange.fr> From: Paul Richard Thomas Date: Wed, 21 Jun 2023 17:08:41 +0100 Message-ID: Subject: Re: [Patch, fortran] PR108961 - Segfault when associating to pointer from C_F_POINTER To: Mikael Morin Cc: Tobias Burnus , gcc-patches , fortran Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable X-Spam-Status: No, score=-0.5 required=5.0 tests=BAYES_00,DKIM_SIGNED,DKIM_VALID,DKIM_VALID_AU,DKIM_VALID_EF,FREEMAIL_FROM,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: Committed as r14-2021-gcaf0892eea67349d9a1e44590c3440768136fe2b Thanks for the pointers, Tobias and Mikael, I used them both. Paul On Tue, 20 Jun 2023 at 21:47, Mikael Morin wrote: > > Le 20/06/2023 =C3=A0 18:30, Tobias Burnus a =C3=A9crit : > > On 20.06.23 18:19, Paul Richard Thomas via Fortran wrote: > > > >> Is there a better way to detect a type(c_ptr) formal argument? > > u.derived->intmod_sym_id =3D=3D ISOCBINDING_PTR ? > && u.derived->from_intmod =3D=3D INTMOD_ISO_C_BINDING ? > --=20 "If you can't explain it simply, you don't understand it well enough" - Albert Einstein