From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from EUR04-VI1-obe.outbound.protection.outlook.com (mail-eopbgr80057.outbound.protection.outlook.com [40.107.8.57]) by sourceware.org (Postfix) with ESMTPS id D5B123874C24 for ; Fri, 19 Feb 2021 09:08:16 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.3.2 sourceware.org D5B123874C24 ARC-Seal: i=1; a=rsa-sha256; s=arcselector9901; d=microsoft.com; cv=none; b=ghtRZScA4W2J35GHiJvSp54nL58VjXkMIJpyp6px30sYw62WmU5VwSWopTJIXJis04Xbubahm3YnkzDEbE0uuQSFPCR5TluPhHqFkTCASFh6/1e4UngXuzGvWJ8WfksnZTG9xnAvFMyTufvuQo7HCBdLSoJTBgDIOCk611yCdTCknOcUn79YaGY6lJi+RxG+vFwmppiqQbSULZrsMK3LH0SoY15+9azUGoREDoTNPg8K1bkh9SqSvcfhWA3NiqHZqCic4ydsoAyE7vHzSJ3O/J1/Q8Hf1OvVJQOYe3UmFKaHjgGhN/QiCk+MUjGefglFzK7loYZpb1vBdeg0VZPEyA== ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=microsoft.com; s=arcselector9901; h=From:Date:Subject:Message-ID:Content-Type:MIME-Version:X-MS-Exchange-SenderADCheck; bh=VFcadjo7fgmctsQ4DnlSBQbg7hO/6JyDeWtWCCbzgWc=; b=e7xJzKtN8FQ0dyyEVk5mS1v9PXglXW4WxKiaQxrGJ0MDeplbIK/ky8fk9jz/Sn79VkWU9if3aaOXty3rfF/2vKKeCu/6H/Dvp4PWxmpJgXFgH3br7PnJ0VmosHcwCAGPSK6VvkFBx0nPFz5KYslGUOzVItvR3l8qJaky7707GsQKo0sB5pHj4fqrtFu8d52UhRHJtVbQlOnOddkFpJTMal8iWNwQUYHEqdflrLSDfqX68w6ZiCpwbAPj7eBVwKr+V3OGwHYGRQ5K5lEhlys3z4fvZyBBmdy7UkoxjIy3+7KUrBZOFDa/FwPsMGIZSV/meC99L09UeSVn+PIdqnSzUw== ARC-Authentication-Results: i=1; mx.microsoft.com 1; spf=pass smtp.mailfrom=sitael.com; dmarc=pass action=none header.from=sitael.com; dkim=pass header.d=sitael.com; arc=none Received: from AM6PR08MB3799.eurprd08.prod.outlook.com (2603:10a6:20b:8a::29) by AM6PR08MB3800.eurprd08.prod.outlook.com (2603:10a6:20b:87::25) with Microsoft SMTP Server (version=TLS1_2, cipher=TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384) id 15.20.3846.29; Fri, 19 Feb 2021 09:08:14 +0000 Received: from AM6PR08MB3799.eurprd08.prod.outlook.com ([fe80::6087:246a:3f3d:5a79]) by AM6PR08MB3799.eurprd08.prod.outlook.com ([fe80::6087:246a:3f3d:5a79%2]) with mapi id 15.20.3846.038; Fri, 19 Feb 2021 09:08:14 +0000 From: Vicini Alessandro To: Arjen Markus CC: fortran Subject: R: Help with fortran standards Thread-Topic: Help with fortran standards Thread-Index: AdcGmErWmzd81IfFTxGQR5sPI7zxSgABEBSAAAB7S+A= Date: Fri, 19 Feb 2021 09:08:14 +0000 Message-ID: References: In-Reply-To: Accept-Language: it-IT, en-US Content-Language: it-IT X-MS-Has-Attach: X-MS-TNEF-Correlator: x-originating-ip: [89.96.114.226] x-ms-publictraffictype: Email x-ms-office365-filtering-correlation-id: 22acbc61-34b3-4ee3-3d70-08d8d4b5e3ba x-ms-traffictypediagnostic: AM6PR08MB3800: x-microsoft-antispam-prvs: x-ms-oob-tlc-oobclassifiers: OLM:9508; x-ms-exchange-senderadcheck: 1 x-microsoft-antispam: BCL:0; x-microsoft-antispam-message-info: GTCqUTuICu57WwfeGDxzGKm9Mbn1R/g05SsH1lY+Iz3C3d/huhXiERDVAgbRLTYn2o8gFom66vSWbn1eAeqIXAv2emDcAYvnw9/ededKV4YXw4LB09n2y1b7lpfxWw+6JP8UAq5ACnkPUW6Q+tCt6oJ3W6mIMdkNKGnBYValhBXmUAyINMIbOcYF/1UGdf63FAknztsBcZ1vTwvp38K20//kuRBcZBhvEFpSxJzbFN0tv6ugBZtTPuQF1BVef0YgLgJBF8b3iTgTj3+eKwRUmOWBrk/ZRJP+VKcPMJ6BGtmoB/XbiObgWP4hQeFG4vagUUZYK8DTB1x2FrAs64bE8m47I3bkFcoKNNduCpbk2Ymw8/+s1o0FU8BPFjfQlolDysestHqvWFB8HCuDryDF/gZ2ZPtQ9AVOjhC0FXXY4FQGpJ/AcMaHKobFL24w7D1zWCcUF4QxuCF2gTWxxclyqJVQAFzNYTqGXRG1NTX+Bt680WYjfjK/nc+Nb9pBTGkEL4vKtbqS+4DyEAHasJ06/q8So3tMyDzShqIGMxMRuasj4GGXMkgsEifo+4H/xWIG x-forefront-antispam-report: CIP:255.255.255.255; CTRY:; LANG:en; SCL:1; SRV:; IPV:NLI; SFV:NSPM; H:AM6PR08MB3799.eurprd08.prod.outlook.com; PTR:; CAT:NONE; SFS:(4636009)(346002)(366004)(136003)(376002)(39850400004)(396003)(83380400001)(33656002)(6916009)(86362001)(4326008)(2906002)(966005)(478600001)(8676002)(71200400001)(8936002)(9686003)(166002)(52536014)(6506007)(9326002)(66476007)(55016002)(7696005)(19627235002)(26005)(76116006)(66946007)(66446008)(316002)(186003)(64756008)(66556008)(5660300002); DIR:OUT; SFP:1101; x-ms-exchange-antispam-messagedata: =?iso-8859-1?Q?mYFBMnvOzI+Id3TC3PY/nAcRdPQNxhJBMMiJQQC8W5nhqb8W025OVUV+Pi?= =?iso-8859-1?Q?lANKUXadrzd2BYtZPVHBlGn227DSVwUb6MKKxnO1nbgH4nL9lsrE0VarLQ?= =?iso-8859-1?Q?G7ZaZfTAC1ggSEX3q5loiGtSwe0wQsnFY0TX8dbGjw8YNVuRDPnK9f38Da?= =?iso-8859-1?Q?Xrw2ttOYPIeNZJLHZNnOYQzyGU3dkmSrMm4Mw77oAo9xaB5tehuw/7vjZH?= =?iso-8859-1?Q?YsZBplS/aRYpfGykqQ24LkszaRMqfUMhBIy1fZ08kcGBZRgfkwwc4RfaU8?= =?iso-8859-1?Q?Ugwe4ISPJiqAHnXvqI3UmuRQNmyBp7mmNLSi1wMJba3avRp4XWmEig5tHf?= =?iso-8859-1?Q?7cIwCOhZlv1a//j0yx4XnYI9/hfCGxUrHA5b18I6GlsaWSj7cj5ijPvge0?= =?iso-8859-1?Q?TWaOTjTbHUqxOIQgbRRnOCG0o2jedflYCpo8ADyhuW6Hz3KhNPM7gH89gM?= =?iso-8859-1?Q?JYTdAQ6Vk/LdaHRRhodf5F5Ir0HbAuBGGOxwOqe6L4pRKFg670MmnfpKqv?= =?iso-8859-1?Q?aiFKfdr3aiJEQcWjJ35jowQ2v0AJ7OyZHKIxKVQWYKl/j9OO+pk7/dWCfl?= =?iso-8859-1?Q?X8lHIxvey2ZHqO/2xIaefOEkYt8NdzEuatm4lcE2vIgq02ymPMXhYsPThh?= =?iso-8859-1?Q?ZMAi70BeYnv7yMflVCkT6tXXwWvEr21eY5cy1r5HBDzCkIiScKRCSmJZ2V?= =?iso-8859-1?Q?UCt76XPy0tg9WuNeVCoBYhc2IRy/LuCCdDn52gwHXVR9w5hETFdunOHigl?= =?iso-8859-1?Q?pBTVwmMpEiPS+9Kl3T/LOaGZ1hCLU5rfF7HErrAVV9VnXLIG5ZCghP1Oup?= =?iso-8859-1?Q?xDHImu/VA00woNvPGzk4zRxdQophqwqHnsP4nsu63p7vIls3RxcHXplQcc?= =?iso-8859-1?Q?MpJHGZmslGJYZTyTn3kLdHo0xn8oQNE8ZxiiFAamKhweteTWlNfwpah4w7?= =?iso-8859-1?Q?S1xTZp/UtYfp6zkF32O+LuujnnQ9oxUUZBkI/yBROC7g6zUTNYDbBWItCE?= =?iso-8859-1?Q?28t6ssizWC3zVAWq13fbOzekmmdLnXuBENHFGeWoNQri56+qkakLu8tE/4?= =?iso-8859-1?Q?OTW1xTGFqWxXtdYi2rhBZdBft/+t8Lgt8scn7SRJH9ycFjTvvRAgwCGcN7?= =?iso-8859-1?Q?a3pDdxTtuM+9Y8joR0aa6TzmziJOIhsaaPvllTptoAkj5A9G4f3Wkud6f2?= =?iso-8859-1?Q?wfVcACZ5A8mO9YLakgU929S2bsUGismwDcgMIIdm/a2GtQDKqcWvwPGep4?= =?iso-8859-1?Q?6dza4eZzkfOIUh/+JjLT9NoU5eHcRqoGA4zo4zMNUtKj5v3wgUValGLIyC?= =?iso-8859-1?Q?3Ut66jktzWkdweT3LWvcbEIBzFIW09jIl86onPyEqc5EQg/hQrqGLU2wqL?= =?iso-8859-1?Q?hjwCsgxWkC?= x-ms-exchange-transport-forked: True MIME-Version: 1.0 X-OriginatorOrg: sitael.com X-MS-Exchange-CrossTenant-AuthAs: Internal X-MS-Exchange-CrossTenant-AuthSource: AM6PR08MB3799.eurprd08.prod.outlook.com X-MS-Exchange-CrossTenant-Network-Message-Id: 22acbc61-34b3-4ee3-3d70-08d8d4b5e3ba X-MS-Exchange-CrossTenant-originalarrivaltime: 19 Feb 2021 09:08:14.6268 (UTC) X-MS-Exchange-CrossTenant-fromentityheader: Hosted X-MS-Exchange-CrossTenant-id: c187ee01-4e4e-40c8-b342-f82c8d699421 X-MS-Exchange-CrossTenant-mailboxtype: HOSTED X-MS-Exchange-CrossTenant-userprincipalname: rLa/SEolf3LuyrdmK9FwHtLdF2zyFKF2WU/2AgmhE53CUO77OtKnTSxeS12RjxU8oK1e4LQ0LOWJ+ysozKwtYT0Qs2dQgcqLUl7KWhrkvG0= X-MS-Exchange-Transport-CrossTenantHeadersStamped: AM6PR08MB3800 X-Spam-Status: No, score=0.3 required=5.0 tests=BAYES_00, DKIM_SIGNED, DKIM_VALID, DKIM_VALID_AU, DKIM_VALID_EF, HTML_MESSAGE, HTTPS_HTTP_MISMATCH, RCVD_IN_ABUSEAT, RCVD_IN_DNSWL_LOW, RCVD_IN_MSPIKE_H2, SPF_HELO_PASS, SPF_PASS, TXREP autolearn=no autolearn_force=no version=3.4.2 X-Spam-Checker-Version: SpamAssassin 3.4.2 (2018-09-13) on server2.sourceware.org Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable X-Content-Filtered-By: Mailman/MimeDel 2.1.29 X-BeenThere: fortran@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Fortran mailing list List-Unsubscribe: , List-Archive: List-Help: List-Subscribe: , X-List-Received-Date: Fri, 19 Feb 2021 09:08:18 -0000 Hello Arjen, unfortunately this code has been developed with CVF using its features to c= reate dialog routines, so I need to work under CVF... So I guess I'll need alternative solutions to procedure pointers. Thank you= ! A. Da: Arjen Markus Inviato: venerd=EC 19 febbraio 2021 09:52 A: Vicini Alessandro Cc: fortran Oggetto: Re: Help with fortran standards Hello Allessandro, these are fairly general questions, whereas this list is meant for specific= questions on the gfortran compiler. You can post these on the Fortran news= group comp.lang.fortran or on the Discourse group at https://fortran-lang.d= iscourse.group/. However, here is my reply: * Compaq Visual Fortran has been out of support for several decades. Yo= u can use the Intel oneAPI suite as an alternative * CVF may have supported the Fortran 95 standard (I do not quite know t= he details), but procedure pointers are a thing of Fortran 2003. So it is v= ery unlikely CVF will ever be able to compile your program Regards, Arjen Op vr 19 feb. 2021 om 09:47 schreef Vicini Alessandro via Fortran >: Hello, I'm not sure this is the right group for this request, but I hope I = can get some help. I have a module like the one you can see below, which I use so that I can p= ass subroutines names as arguments in procedure calls. I've been using this= kind of modules under linux with gfortran (version 8). Now, under windows = with Compaq Visual Fortran 6.6 (which should comply at least to the fortran= 95 standards), this same module does not compile... Is this because it is b= ased on more recent fortran features? In this case, how would it be possibl= e to do this with fortran 95? Thank you very much for your attention... A. Module Selection_type Type :: Selection_procedure_type Procedure(Select_interface), Pointer, Nopass :: item =3D> nu= ll() End Type Selection_procedure_type Abstract Interface Subroutine Select_interface(arg1,arg2) Integer :: arg1 Integer :: arg2(2) End Subroutine Select_interface End Interface End Module Selection_Type