From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mout.gmx.net (mout.gmx.net [212.227.17.22]) by sourceware.org (Postfix) with ESMTPS id 3DB013858D35 for ; Tue, 22 Nov 2022 21:15:43 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.1 sourceware.org 3DB013858D35 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=1669151739; bh=596MeYCEzd9lt51U2zNY+nQj1lQGSENZNOiJC6tnTbA=; h=X-UI-Sender-Class:From:To:Subject:Date:References; b=C5fH0SYVA/b3e+uq6S/0OPNsie+g5+X9sqHtAkXV8CDUsF37KqPTT8HQRLvNYA2wU qfa9/Rv4BT57m9TrFAqVDr+u0PtxPEBgEpmTI4ckxg+y3islCCLWFYa8nCPDs5uqOt 2GWEXdX8WWtnEzDqqiMFLh9+vqfttclkOEIoAub7KKEK1mreeRw7IfQtI0TIHOgb0K UiBWjxBB124pvd+n6nIp4bDh8UF6WnroSp447u5mVNR31WV7dk5tA18d5g+vQ4JOOy vxqmwD8Jw///zv8urZGd/vgfzsvSJR5J3JevGkOnvXDKbkAzP3QJ7upBkQ9lG+cvL5 oxk5gMumqYJtA== X-UI-Sender-Class: 724b4f7f-cbec-4199-ad4e-598c01a50d3a Received: from [93.207.84.96] ([93.207.84.96]) by web-mail.gmx.net (3c-app-gmx-bap12.server.lan [172.19.172.82]) (via HTTP); Tue, 22 Nov 2022 22:15:39 +0100 MIME-Version: 1.0 Message-ID: From: Harald Anlauf To: fortran Subject: Re: typespec in forall and implied-do Content-Type: text/plain; charset=UTF-8 Date: Tue, 22 Nov 2022 22:15:39 +0100 Importance: normal Sensitivity: Normal References: X-UI-Message-Type: mail X-Priority: 3 X-Provags-ID: V03:K1:j4AyO3Vill4YZsGTgcsFDs1S2UF8NN3ClcicPQRf3JHkB9Z/0Mcp4LSdA+0/WT2yecjiD 5tUMTqa7+8UCbwLMsuC4wLE9JhLZ3PrB+l+2MI2Ooq/uBvWIKCbHPMD27rfo79xWGYNQiYOVmAqU 38898TTFXiUJTPBYuz/sgGEmAH1cYzDt64k/z+HEWpbaLJ2XZM/Q+d9BLTP7DIQuOmaK5Sqys1a8 IfUWbCdq4FTx5uRuPZDaz6XJjqjBcBZaE3pO6bjxMEYN/o2hbzkwHrSc3O/kjkT8Ey9CWC0FBeFm tc= UI-OutboundReport: notjunk:1;M01:P0:3AxemaCrtY8=;XEzufLn9y0cxB/T9RkebTCXg/BJ Kg58OJvNCMkeRuZhFOWrLCbCBrCTSqX+WBpbm9YH0ktCTi/OYnuDXfF8bFb5uHcGiFKpI+Sep fePcSYwct5+/z5W+BgxslXrYx1alYJ+71tnG77ijpa3ptqnNRYj1GRDgdGdzpLUFd6tKr+xDq lPkJ7KlQPjwb034tbegP22WJWQQql5u0EWXBM3WvG3tj9b9X6dCq2ONJ6lhYYvWhaSVsbcLfw mBUIGqTUC7XpQ+ugMYV3EhpXgT6H43A7MpjgXj845hOuc8GR57oUcderPIbs8/mQb4PVJeTiW IvISVXt4MunMbTNEK6WJQs+28J83vSpdK+xW6pjtS9fT6VzropWN37rn2t/IyD6s0e0dGWlve pr36VIwLjzNPL2CgqLEq0YuOl8gcn4OOO7RIALcagtTLeA0WYXviGqUS3fM6Lhbjs+blRKAZx 0pa4kDO/3lDnV2sD8MsivF/GsLkQwjw1UHcxP2UClv1sXFx3/u5Aq3fBqr9udjko24uxvry4R sYx+7QbDpr/5CqwwRvBPcCvG6yWJWqBYxD/jBF25pVEz3aet7t4u1x5VF0ugVvod+mR7nu2z0 f7j7/okK2mhGrqa5aQnHha2VWmVsdQzrvbfcOv4MiYIZUlBqHhqLowe5u7HMEhEPcEVgcf3Er rPkOvQbXWsuoHgdZ2mCuAnhufVPaMykakaP1WxGD7Jw2a2Xox7tJz4trl884cPDv+ikN4MNAj ABdXpcVtRHrG5pKRuNLpvZCYO7+NTVoQ17R/VKZ/K5y2IyHgm+7xZ5UrWxVHzlInhk4lX5dDh 9NaT8PSVlxcXniGJrXLDxapw== X-Spam-Status: No, score=-5.5 required=5.0 tests=BAYES_00,DKIM_SIGNED,DKIM_VALID,DKIM_VALID_AU,DKIM_VALID_EF,FREEMAIL_FROM,RCVD_IN_DNSWL_LOW,RCVD_IN_MSPIKE_H2,SPF_HELO_NONE,SPF_PASS,TXREP 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: Minor addition: program foo implicit none real(8) :: i integer, parameter :: q(*) = [(kind(i), integer :: i = 1, 3)] print *, q end program foo This prints 8 8 8 although it should be all 4's. So we really need to create a local namespace or even block to shadow the host's variable. Crayftn and NAG accept this too, Intel has a problem report on this. Harald