From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 63072 invoked by alias); 12 Sep 2017 12:47:32 -0000 Mailing-List: contact fortran-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Subscribe: List-Post: List-Help: , Sender: fortran-owner@gcc.gnu.org Received: (qmail 63046 invoked by uid 89); 12 Sep 2017 12:47:32 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-1.0 required=5.0 tests=AWL,BAYES_00,KAM_LAZY_DOMAIN_SECURITY,RP_MATCHES_RCVD autolearn=no version=3.3.2 spammy=H*r:ip*192.168.1.11, H*MI:4107, dear X-Spam-User: qpsmtpd, 2 recipients X-HELO: nef2.ens.fr Received: from nef2.ens.fr (HELO nef2.ens.fr) (129.199.96.40) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Tue, 12 Sep 2017 12:47:30 +0000 Received: from mailhost.lps.ens.fr (tournesol.lps.ens.fr [129.199.120.1]) by nef2.ens.fr (8.13.6/1.01.28121999) with ESMTP id v8CClPOL082843 ; Tue, 12 Sep 2017 14:47:25 +0200 (CEST) Received: from localhost (localhost [127.0.0.1]) by mailhost.lps.ens.fr (Postfix) with ESMTP id 94D67142; Tue, 12 Sep 2017 14:47:25 +0200 (CEST) Received: from mailhost.lps.ens.fr ([127.0.0.1]) by localhost (tournesol.lps.ens.fr [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id b0n84I21U9zp; Tue, 12 Sep 2017 14:47:25 +0200 (CEST) Received: from [192.168.1.11] (log78-1-82-242-47-10.fbx.proxad.net [82.242.47.10]) by mailhost.lps.ens.fr (Postfix) with ESMTPSA id 63F04139; Tue, 12 Sep 2017 14:47:25 +0200 (CEST) From: =?utf-8?Q?Dominique_d=27Humi=C3=A8res?= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Mime-Version: 1.0 (Mac OS X Mail 10.3 \(3273\)) Subject: Re: [Patch, fortran] PR82173 (PDT) - [meta-bug] Parameterized derived type errors Message-Id: <660B8858-CBC0-4107-9274-9874DD354EE8@lps.ens.fr> Date: Tue, 12 Sep 2017 12:47:00 -0000 Cc: gfortran , gcc-patches To: Paul Richard Thomas X-SW-Source: 2017-09/txt/msg00037.txt.bz2 Dear Paul, I have been playing with the patch and found that the following variant of = the test for pr82168 module mod implicit none integer, parameter :: dp =3D kind (0.0d0) type, public :: v(z, k) integer, len :: z integer, kind :: k =3D kind(0.0) real(kind =3D k) :: e(z) end type v end module mod program bug use mod implicit none type (v(2)) :: a a%e =3D 1.0 type (v(z=3D:, k=3Ddp)) :: b end program bug gives the error pr82168_db_1.f90:23:24: type (v(z=3D:, k=3Ddp)) :: b 1 Error: Unexpected data declaration statement at (1) I am also puzzled by the meaning of =E2=80=98z=3D:=E2=80=99 in the main pro= gram. Should not it be restricted to be inside a procedure? Cheers, Dominique