From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mail-pj1-x1030.google.com (mail-pj1-x1030.google.com [IPv6:2607:f8b0:4864:20::1030]) by sourceware.org (Postfix) with ESMTPS id 219BD3858D32 for ; Fri, 2 Jun 2023 15:20:04 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org 219BD3858D32 Authentication-Results: sourceware.org; dmarc=pass (p=none dis=none) header.from=gmail.com Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=gmail.com Received: by mail-pj1-x1030.google.com with SMTP id 98e67ed59e1d1-256766a1c43so1008962a91.1 for ; Fri, 02 Jun 2023 08:20:04 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20221208; t=1685719203; x=1688311203; h=content-transfer-encoding:cc:to:subject:message-id:date:from :in-reply-to:references:mime-version:from:to:cc:subject:date :message-id:reply-to; bh=h5aBVWjVvoI/58k4RweSeukbLGOWJww/KPuBsagBWsI=; b=AHGiWAcKrfpHpLvRWDMHy1IZhpPEeYluUYhDhKSy1W5aTmFlLdQZU029bT6B3KzM1i deDVPHmVlvCrPdzSYey6XSjq9BwnvYVFjYM71bPV+TwsUqt712K2SlAqNi7+70WYGExj eCs20+2VmpaSwrhv/To+Rnznwfej5zFOlvoiNiihVWpsB/MxFFsrlO7gITtYC8vSRUo4 82cI1skeSlHmv2u+IyVft+6R/Qw9M4DvNtKdGaPKOvaiP8iZgzVgJ25+BrnZ9T9tylNh jG1VC3XsvMSsBf9AZpGGJ7uPY70bKz7sLnRAMaH8IoHxCipsEObM+eslMoyUjKFGwOF0 uYVQ== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20221208; t=1685719203; x=1688311203; h=content-transfer-encoding:cc:to:subject:message-id:date:from :in-reply-to:references:mime-version:x-gm-message-state:from:to:cc :subject:date:message-id:reply-to; bh=h5aBVWjVvoI/58k4RweSeukbLGOWJww/KPuBsagBWsI=; b=HSbX033agpuvVY++KkmhHOCFzLshcMOKWW53V/Sn+L6W3NbVJDabdnSKncfvKdCD7I UW59oml6IWalwO9X+s2/xRAXpInfKMsX+a4b4krq86PdDj1+Nob3UlQw8jylOeA5ESep t4Qsjo2BFgJCm4Od7HrLGzDnToxttYqjnj4HYfFDfODcGsmkPaTw9BHWMFrA1sW+8g4E 2QqkEma8FZDRJaJ8zoG+LYTO6rRhs2O9kgjoBfBQl4qY54VqaW9B/ZLIBerFiMY0JhdB 6AGTbYMkHv+tQzYlr35JdonqX7DezyyymZ3Z1LtDTbtPCPzGQBUnH0HI43irf0RCTgbw CVsg== X-Gm-Message-State: AC+VfDy1e9uIdg3IfCTV2pT0qwMNnOn+ky8+jVECf4B39layajdu63VI uncs9RBMF1nOX21etSqcYgjfQsmvO989IVaOD58= X-Google-Smtp-Source: ACHHUZ65dkddGZ5Qvsp/RnfnCmJm6kDkjPYTYaa6cIcmheb+Y/3N37e2A45IVkoG8B6QUikZPU17fGr41phIPqeP+bQ= X-Received: by 2002:a17:90a:f282:b0:253:62c2:4e1b with SMTP id fs2-20020a17090af28200b0025362c24e1bmr99973pjb.48.1685719203131; Fri, 02 Jun 2023 08:20:03 -0700 (PDT) MIME-Version: 1.0 References: <6b48bc0f-043f-4635-abaf-bac09d67323b.1685712510891@community.intel.com> <1260414420.3647.1685715134551.JavaMail.zimbra@intec.unl.edu.ar> In-Reply-To: <1260414420.3647.1685715134551.JavaMail.zimbra@intec.unl.edu.ar> From: Paul Richard Thomas Date: Fri, 2 Jun 2023 16:19:51 +0100 Message-ID: Subject: Re: A doubt about IMPORT and SELECT TYPE To: "Jorge D'Elia" Cc: Gfortran List , "Jorge D'Elia" Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable X-Spam-Status: No, score=-0.9 required=5.0 tests=BAYES_00,DKIM_SIGNED,DKIM_VALID,DKIM_VALID_AU,DKIM_VALID_EF,FREEMAIL_FROM,RCVD_IN_DNSWL_NONE,SPF_HELO_NONE,SPF_PASS,TXREP,T_SCC_BODY_TEXT_LINE 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: Hi Jorge, PRs 108650/106035 cover this problem. Thanks Paul On Fri, 2 Jun 2023 at 15:04, Jorge D'Elia via Fortran wrote: > > Hi, > > I have a doubt about IMPORT and SELECT TYPE, please see the > forwarded message below (that also has a sample code), as well > > https://www.ibm.com/docs/en/xffbg/121.141?topic=3Dattributes-import-fortr= an-2003 > > What is the correct way? Thanks. > > Regards. > Jorge. > > ----- Forwarded message ----- > From: "Intel Community" > To: "Jorge D'Elia" > Sent: Viernes, 2 de Junio 2023 10:28:31 > Subject: Re: Bug with IMPORT and SELECT TYPE (Intel Community Subscriptio= n Update) > > Hi jdelia, > > OP1 (New Contributor II) posted a new reply in Intel=C2=AE Fortran Compil= er on 06-02-2023 10:28 AM in the Intel Community: > > https://community.intel.com/t5/Intel-Fortran-Compiler/Bug-with-IMPORT-and= -SELECT-TYPE/m-p/1492319/emcs_t/S2h8ZW1haWx8dG9waWNfc3Vic2NyaXB0aW9ufExJRUx= QQzhSUEVaS1RTfDE0OTIzMTl8U1VCU0NSSVBUSU9OU3xoSw#M166583 > > Subject: Re: Bug with IMPORT and SELECT TYPE > > Well, it appears that gfortran also gets it wrong... the use of an IMPORT= statement is not limited to interfaces. > See this paragraph from the Intel documentation: An IMPORT statement can = appear in a submodule, module procedure, > a contained procedure, the specification part of a BLOCK construct, or in= an interface body. It can not appear in > the specification part of a main program, external procedure, module, or = block data except in an interface body. > > -- --=20 "If you can't explain it simply, you don't understand it well enough" - Albert Einstein