From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mail.intec.unl.edu.ar (intec.santafe-conicet.gob.ar [200.9.237.140]) by sourceware.org (Postfix) with ESMTPS id 4F9DC3857C44 for ; Fri, 2 Jun 2023 14:04:29 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org 4F9DC3857C44 Authentication-Results: sourceware.org; dmarc=none (p=none dis=none) header.from=intec.unl.edu.ar Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=intec.unl.edu.ar Received: from localhost (localhost [127.0.0.1]) by mail.intec.unl.edu.ar (Postfix) with ESMTP id 37651283408 for ; Fri, 2 Jun 2023 11:12:16 -0300 (ART) Received: from mail.intec.unl.edu.ar ([127.0.0.1]) by localhost (mail.intec.unl.edu.ar [127.0.0.1]) (amavisd-new, port 10032) with ESMTP id c4XzL_Zg3Ze8 for ; Fri, 2 Jun 2023 11:12:15 -0300 (ART) Received: from localhost (localhost [127.0.0.1]) by mail.intec.unl.edu.ar (Postfix) with ESMTP id EFF1E2835E5 for ; Fri, 2 Jun 2023 11:12:14 -0300 (ART) DKIM-Filter: OpenDKIM Filter v2.10.3 mail.intec.unl.edu.ar EFF1E2835E5 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=intec.unl.edu.ar; s=95F69FDA-B53A-11E9-B408-E2E41DC56D40; t=1685715135; bh=NBYqVG2KUHDKmMrpFCqtdGnWXC5LfVWIa3kfmOBtftQ=; h=Date:From:To:Message-ID:MIME-Version; b=G+wmvcGEyPL0Yb3OxoKEHX1pl1hNc5fGFuLLuESxgmqFnwlrX2GC7qHv6+lt+PmGs His3Qs19jGdfr4qGAWaQn03jqUM7h/CAC/6NB5c2d0PRvjG1Hh/zyfm2ZZoR1E1KZP N0+i/m2asZD72zwUOxlTZpaOAqpoPTX4v9RU1GKKn5cODFQVqxVG/R0kkgyDeY6CuK S2xQnHZrIib95yk0/Gc3d5FEgQWlM4SlczzuSMcFBpPlwlOGRnZRt8Ljp60TNk3UI6 sYgXP1Y1bexbi64KQQidoPvyFJ77Oxx93e8HmpA77RMG+IQbysJuyZzfvq9QgDMOm0 hz4k3YhtjTt3A== X-Virus-Scanned: amavisd-new at intec.unl.edu.ar Received: from mail.intec.unl.edu.ar ([127.0.0.1]) by localhost (mail.intec.unl.edu.ar [127.0.0.1]) (amavisd-new, port 10026) with ESMTP id XWuaMoMH9NmF for ; Fri, 2 Jun 2023 11:12:14 -0300 (ART) Received: from mail.intec.unl.edu.ar (mail.intranet [192.168.0.134]) by mail.intec.unl.edu.ar (Postfix) with ESMTP id BC073283408 for ; Fri, 2 Jun 2023 11:12:14 -0300 (ART) Date: Fri, 2 Jun 2023 11:12:14 -0300 (ART) From: Jorge D'Elia Reply-To: Jorge D'Elia To: Gfortran List Message-ID: <1260414420.3647.1685715134551.JavaMail.zimbra@intec.unl.edu.ar> In-Reply-To: <6b48bc0f-043f-4635-abaf-bac09d67323b.1685712510891@community.intel.com> References: <6b48bc0f-043f-4635-abaf-bac09d67323b.1685712510891@community.intel.com> Subject: A doubt about IMPORT and SELECT TYPE MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Mailer: Zimbra 8.8.12_GA_3803 (ZimbraWebClient - FF113 (Linux)/8.8.12_GA_3794) Thread-Topic: A doubt about IMPORT and SELECT TYPE Thread-Index: riVeS+GBCCNGNPw4SAZPh18/8OCu9w== X-Spam-Status: No, score=1.1 required=5.0 tests=BAYES_50,DKIM_SIGNED,DKIM_VALID,DKIM_VALID_AU,SPF_HELO_PASS,SPF_PASS,TXREP,T_SCC_BODY_TEXT_LINE autolearn=ham autolearn_force=no version=3.4.6 X-Spam-Level: * X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on server2.sourceware.org List-Id: Hi, I have a doubt about IMPORT and SELECT TYPE, please see the=20 forwarded message below (that also has a sample code), as well=20 https://www.ibm.com/docs/en/xffbg/121.141?topic=3Dattributes-import-fortran= -2003 What is the correct way? Thanks. Regards. Jorge. ----- Forwarded message ----- From: "Intel Community"=20 To: "Jorge D'Elia" Sent: Viernes, 2 de Junio 2023 10:28:31 Subject: Re: Bug with IMPORT and SELECT TYPE (Intel Community Subscription = Update) Hi jdelia, OP1 (New Contributor II) posted a new reply in Intel=C2=AE Fortran Compiler= on 06-02-2023 10:28 AM in the Intel Community: https://community.intel.com/t5/Intel-Fortran-Compiler/Bug-with-IMPORT-and-S= ELECT-TYPE/m-p/1492319/emcs_t/S2h8ZW1haWx8dG9waWNfc3Vic2NyaXB0aW9ufExJRUxQQ= zhSUEVaS1RTfDE0OTIzMTl8U1VCU0NSSVBUSU9OU3xoSw#M166583 Subject: Re: Bug with IMPORT and SELECT TYPE Well, it appears that gfortran also gets it wrong... the use of an IMPORT s= tatement is not limited to interfaces.=20 See this paragraph from the Intel documentation: An IMPORT statement can ap= pear in a submodule, module procedure,=20 a contained procedure, the specification part of a BLOCK construct, or in a= n interface body. It can not appear in=20 the specification part of a main program, external procedure, module, or bl= ock data except in an interface body. --