From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <SRS0=3r0J=C5=gmx.de=anlauf@sourceware.org>
Received: from mout.gmx.net (mout.gmx.net [212.227.15.15])
	by sourceware.org (Postfix) with ESMTPS id 957683858D1E;
	Tue, 11 Jul 2023 21:09:45 +0000 (GMT)
DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org 957683858D1E
Authentication-Results: sourceware.org; dmarc=pass (p=none dis=none) header.from=gmx.de
Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=gmx.de
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=gmx.de;
 s=s31663417; t=1689109783; x=1689714583; i=anlauf@gmx.de;
 bh=BGyrxXnybjYcB5kJnyGM1xukrDNhcz4pWiaX8udHeiI=;
 h=X-UI-Sender-Class:Date:Subject:To:Cc:References:From:In-Reply-To;
 b=osSJG6MjmbezJ1X3CjTpatkY4+zEWQ6hkcePdKA/JsyAGvVsbsfVuGOFpYWPr3vpKKJMNya
 FOqrN50CUZj32CoBOsd4HhFLpeNENmUI3qWrFWptUS2dAeyoRbUPfqYcIHMNjkDM3PD69y9ZF
 cTEqUawI8cSOlyD67Nn5pRXvtwpLsHniazB+wWz5wz8yRr3HrXrpdgaNJSjH8bbL+8UWVHLh4
 bWjW2FFkoFyYD+4G+ZEzisPXVtX5EOsaz7+oNJZV7Higv1z5PSLUKvigEYEaCMH3fngujjrQ+
 y4iA7xjQWimrZ12OwwsuM4hTUyoz1ruTYe5MEhXjiFm71PtuysEQ==
X-UI-Sender-Class: 724b4f7f-cbec-4199-ad4e-598c01a50d3a
Received: from [192.168.178.29] ([79.232.149.3]) by mail.gmx.net (mrgmx004
 [212.227.17.190]) with ESMTPSA (Nemesis) id 1MA7GS-1q8vYz17nu-00Bfgb; Tue, 11
 Jul 2023 23:09:43 +0200
Message-ID: <7f431828-bfd6-2c4b-2e52-6d8fea84417f@gmx.de>
Date: Tue, 11 Jul 2023 23:09:41 +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] Allow ref'ing PDT's len() in
 parameter-initializer [PR102003]
To: Andre Vehreschild <vehre@gmx.de>
Cc: GCC-Patches-ML <gcc-patches@gcc.gnu.org>,
 GCC-Fortran-ML <fortran@gcc.gnu.org>,
 Paul Richard Thomas <paul.richard.thomas@gmail.com>
Newsgroups: gmane.comp.gcc.patches,gmane.comp.gcc.fortran
References: <20230710174826.48f9230c@vepi2>
 <3114593a-0197-62cd-41e9-59f2a8ae9f29@gmx.de> <20230711182352.0e59f735@vepi2>
Content-Language: en-US
From: Harald Anlauf <anlauf@gmx.de>
In-Reply-To: <20230711182352.0e59f735@vepi2>
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit
X-Provags-ID: V03:K1:01WLIhiKey21W3hwbaQm1Ov4QeKMVhMCx9knErrpiwcMRF/U38T
 Xr1tlcvYLZ7FyyFZN3qM//P/CwOnbRRL4hrVynBvx9SxE91ApoO1OH1ZjoS1XTtxp+4R0cB
 vAwiu4zn3UGS1qXtnt1Gb3Kb0hfUpwJmmr1mmaNEfr1qO6Kx8JDdjVQfjcM9PE7Ewz98VEB
 eKYTXycg8yoAQRdTNiYFA==
UI-OutboundReport: notjunk:1;M01:P0:mzacF3Z9+u8=;yXAVxc/JWh4kO/YtoOKoTlGD2Pp
 I4IfeyB77kogW5YbcsewNgMiFaJyVNHIETTrrFDNjDIBjFMBPH7ORqghrXGhKjfTfXvnriIUb
 TkKGPtBAk09bS43yNacqflthtNddGM3d1/+wH7eIb28assamZNUetE2IKqQ+EJw4B1go5JqFC
 3Ie/evHrfoOO9DHHhq7f8eWWkHRtOfIeSpsAcBwD82bfOQJZil09I+mhkSucGqzPk6GuSnA9m
 8NKoqlbblV10QFS+COmdjezmRca+1iNZa/W3dJo71+DgJVHorXZq15iqcLZ4nLpP0qwPUxjgZ
 VX86jrQHk84vmMPWxQx8Kjh/W/EW9R2tGJaUEDl9+1Oj44xps4EAr4ZFG8wdbEliBFiqp5xA1
 vJThr8OSXJLoaEuc7bAdJShCPe2fvvSB6o1XQhNg90g17TcsYs/vapZy9ZcMtNSOzSuTNtW8G
 gJn0NOhA+toakAQoWHRJNQ1x03taKeK1q5zAAyBB0l/uMXF1DNT4VtIPQO7i6XOguyxiVyZSw
 ONxGSjGMF7QbJYeTr+6OzdIrNShx17P48e5xw6WhNTMGzl9jAPtxRoPHD5oU7vukUYKJJgeg9
 T2fiXb5pSrk2R1taWA+LpqqymapwH6bknwDJOmINReovYqBTZkUyQa75HLGYHJBp9MO+giBA/
 Zcx/TsqMiwH9Q20uFGBH6TulbuJPN6GfG7p31Kt1FBJS4q6wSjYqTMsd9tMLcADhQP+y5bncP
 Wb4eAdfVRNkJDNYXWKsXg9JIi8xqYzaqoFZKmOwvxaFOjcqTpUstPqjU2tFqLKI4jEZW8BcP3
 3OhFeLMcPotlNeTSlzHOiWc505LoZgAcEzRqBwdBsMuL6oTqMpTZHUjBGNdrJaI59iKbvQb1F
 /Gq8/dxKfYNlkcQoxyl+TpsRAHuoY8YujDQUOH497pL9TD81HRKD6WgesWxU3a0d7a7aduUgs
 MlnUYlkqokGaUgrJYeaUNgsk2Rw=
X-Spam-Status: No, score=-2.9 required=5.0 tests=BAYES_00,DKIM_SIGNED,DKIM_VALID,DKIM_VALID_AU,DKIM_VALID_EF,FREEMAIL_FROM,NICE_REPLY_A,RCVD_IN_BARRACUDACENTRAL,RCVD_IN_DNSWL_LOW,RCVD_IN_MSPIKE_H2,SPF_HELO_NONE,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>

Hi Andre,

I forgot to answer your other question:

Am 11.07.23 um 18:23 schrieb Andre Vehreschild via Gcc-patches:
> I tried to use a pdt within a derived type as a component. Is that not allowed
> by the standard? I know, I could hunt in the standard for it, but when someone
> knows out of his head, he could greatly help me out.

You mean something like the following is rejected with a strange error:

  type pdt(n)
      integer, len     :: n = 8
      character(len=n) :: c
   end type pdt
   type t
      type(pdt(42)) :: q
   end type t
   type(t) :: u
end


pr102003.f90:1:10:

     1 |   type pdt(n)
       |          1
Error: Cannot convert TYPE(Pdtpdt) to TYPE(pdt) at (1)


ISTR that there is an existing PR...