From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <SRS0=rlbk=CI=orange.fr=morin-mikael@sourceware.org>
Received: from smtp.smtpout.orange.fr (smtp-28.smtpout.orange.fr [80.12.242.28])
	by sourceware.org (Postfix) with ESMTPS id 7CEF53858D35
	for <fortran@gcc.gnu.org>; Tue, 20 Jun 2023 20:47:14 +0000 (GMT)
DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org 7CEF53858D35
Authentication-Results: sourceware.org; dmarc=none (p=none dis=none) header.from=orange.fr
Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=orange.fr
Received: from [192.168.1.16] ([86.215.161.51])
	by smtp.orange.fr with ESMTPA
	id BiFlqHX3rOanFBiFsqhpQd; Tue, 20 Jun 2023 22:47:13 +0200
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=orange.fr;
	s=t20230301; t=1687294033;
	bh=f2he8ahvJZoKQGSaX370xRFLpPYWzS/8uEb/fSRnwkc=;
	h=Date:Subject:To:Cc:References:From:In-Reply-To;
	b=PvzCtdJzhUQ78e8ic5LpyTsWgus6Q4Rat2WEXW2CBAOl7qkWjnVwjTvko/YBGBtKb
	 bRyDJhHJecSRag3ROU1kDVHP3t0h2gFRe7BV7YbcClAK8RlQiP9diCGUSdZR0xLwy+
	 /S39UO5Ys4/VZpMlbQnPTcZ3qcjCnTfOXOUIi2mHXLkOT/eozERhzwmuRio39Kus/l
	 t9T7pNNlWVGpldgqiRCefzhB5qGMRHyNndxxe96ycqJl4Tf+WuUveVmhUP3kanOAwg
	 YoN+nlHpssWBSYKigN+etV0mFrvuDzDZPuTyiiCNGAip4v5eqtBpEbiI22Lik+wJZk
	 GO2a8Ma/rGy/A==
X-ME-Helo: [192.168.1.16]
X-ME-Auth: bW9yaW4tbWlrYWVsQG9yYW5nZS5mcg==
X-ME-Date: Tue, 20 Jun 2023 22:47:13 +0200
X-ME-IP: 86.215.161.51
Message-ID: <55395a67-3f4c-0163-866b-a13e7be4d235@orange.fr>
Date: Tue, 20 Jun 2023 22:47:05 +0200
MIME-Version: 1.0
User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:102.0) Gecko/20100101
 Thunderbird/102.12.0
Subject: Re: [Patch, fortran] PR108961 - Segfault when associating to pointer
 from C_F_POINTER
To: Tobias Burnus <tobias@codesourcery.com>,
 Paul Richard Thomas <paul.richard.thomas@gmail.com>
Cc: gcc-patches <gcc-patches@gcc.gnu.org>, fortran <fortran@gcc.gnu.org>
References: <CAGkQGiKCiHkaBpuXXPD7_cG8O-P+tWju=CFCw9eiwLCZLvnOtw@mail.gmail.com>
 <b4fa68c0-5471-8159-bcbe-33c67e554f26@codesourcery.com>
Content-Language: fr
From: Mikael Morin <morin-mikael@orange.fr>
In-Reply-To: <b4fa68c0-5471-8159-bcbe-33c67e554f26@codesourcery.com>
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 8bit
X-Spam-Status: No, score=-4.7 required=5.0 tests=BAYES_00,DKIM_SIGNED,DKIM_VALID,DKIM_VALID_AU,DKIM_VALID_EF,FREEMAIL_FROM,JMQ_SPF_NEUTRAL,NICE_REPLY_A,RCVD_IN_DNSWL_NONE,RCVD_IN_MSPIKE_H3,RCVD_IN_MSPIKE_WL,SPF_HELO_PASS,SPF_PASS,TXREP,T_SCC_BODY_TEXT_LINE autolearn=no autolearn_force=no version=3.4.6
X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on server2.sourceware.org
List-Id: <fortran.gcc.gnu.org>

Le 20/06/2023 à 18:30, Tobias Burnus a écrit :
> 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 == ISOCBINDING_PTR ?
	&& u.derived->from_intmod == INTMOD_ISO_C_BINDING ?