From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from EUR02-VE1-obe.outbound.protection.outlook.com (mail-eopbgr20068.outbound.protection.outlook.com [40.107.2.68]) by sourceware.org (Postfix) with ESMTPS id 89FFB3894E5F for ; Thu, 30 Apr 2020 16:35:03 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.3.2 sourceware.org 89FFB3894E5F Authentication-Results: sourceware.org; dmarc=none (p=none dis=none) header.from=cern.ch Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=Guilherme.Correia@cern.ch ARC-Seal: i=1; a=rsa-sha256; s=arcselector9901; d=microsoft.com; cv=none; b=Z9R4bO3siWvi8JNZoLYpymznCSiBr8fUXQRkrPkEQRYm7ehRWbLcovQQXz7m5O9KELS6l1ZCb9jSMF5KAsixrZxVFwyADoudV8A4WfFlIYCd331BaKaxafR76+MfOm3YayH/CWUMUXMXGCsfqpVYVJKgl2gEOd+Sao4+cUlRw7Sb0kWuZQMEgQRcIoz/YNKGwO4ibD6ixJpv+DpuziDstACdUlH/QcKtjgMuxC+sjWelwCiXNb7hPlqSdkPONMrjyURE3Il2N9Ec4UF3YHkb4g2tEK5s+DKOGBzM+iZzI5ZXhit2eMAPJPwCSile5YiFrpTQ3y6zZD16AtLV46Nu+Q== 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=IJzCCu/11zyNeUGow17a4KqqUB1w8/PORDsF4n1JuXo=; b=LTA7iG/ykUR4RBhDwLw5GJuvmphaM4pTdqaA+HBEzACgwZAMhVBe7EokofXv5GUokS8i/5tChoXjKzntC7O79RnagsoZS+F5PhWOeq3Chm7MpPRM9E1QU+1x+Lf4qXPm6ISGKlpPSfHXD9dEkcdT56+2U/0hFMz41mIlnUyRGe88ybB/VfIk0zbbVuVSVxz8uR2jEHAYVVJJjUSA/P30Mop6hBDQgS265GINnXI6MTsoQMTXRddJlp1JFJt0i1uL3DTimaQnvOWWQMhZkzG2ZyzshbJeVK3fdKJHQpnfEDb7wscN8Kws/eiYTvqfpue2uHoWjOT5J8MPUWndK4prCQ== ARC-Authentication-Results: i=1; mx.microsoft.com 1; spf=pass (sender ip is 188.184.36.48) smtp.rcpttodomain=gcc.gnu.org smtp.mailfrom=cern.ch; dmarc=bestguesspass action=none header.from=cern.ch; dkim=none (message not signed); arc=none DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=cern.onmicrosoft.com; s=selector2-cern-onmicrosoft-com; h=From:Date:Subject:Message-ID:Content-Type:MIME-Version:X-MS-Exchange-SenderADCheck; bh=IJzCCu/11zyNeUGow17a4KqqUB1w8/PORDsF4n1JuXo=; b=ZOHxxly81vDYzcf3tN3iDN7Up4A9F4eD3vHiVVhUCTB2Lc0rGnsgRLoze2o5z/iDcOc5wXPimdAQiXGuWR2OKCHRO5cfPZVgFaf/e5bH3wduFxRgtbSD52G6fgjPz7J8kRHnH93K8HfdCCFr+TWsrUoS5AqlEFOH4NcgC/Z3KcE= Received: from AM6P191CA0102.EURP191.PROD.OUTLOOK.COM (2603:10a6:209:8a::43) by DB8PR06MB6234.eurprd06.prod.outlook.com (2603:10a6:10:10f::25) with Microsoft SMTP Server (version=TLS1_2, cipher=TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384) id 15.20.2937.13; Thu, 30 Apr 2020 16:35:01 +0000 Received: from AM5EUR02FT057.eop-EUR02.prod.protection.outlook.com (2603:10a6:209:8a:cafe::6e) by AM6P191CA0102.outlook.office365.com (2603:10a6:209:8a::43) with Microsoft SMTP Server (version=TLS1_2, cipher=TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384) id 15.20.2958.20 via Frontend Transport; Thu, 30 Apr 2020 16:35:01 +0000 Authentication-Results: spf=pass (sender IP is 188.184.36.48) smtp.mailfrom=cern.ch; gcc.gnu.org; dkim=none (message not signed) header.d=none;gcc.gnu.org; dmarc=bestguesspass action=none header.from=cern.ch; Received-SPF: Pass (protection.outlook.com: domain of cern.ch designates 188.184.36.48 as permitted sender) receiver=protection.outlook.com; client-ip=188.184.36.48; helo=cernmxgwlb4.cern.ch; Received: from cernmxgwlb4.cern.ch (188.184.36.48) by AM5EUR02FT057.mail.protection.outlook.com (10.152.9.242) with Microsoft SMTP Server (version=TLS1_2, cipher=TLS_ECDHE_RSA_WITH_AES_256_CBC_SHA384) id 15.20.2958.19 via Frontend Transport; Thu, 30 Apr 2020 16:35:00 +0000 Received: from CERNFE25.cern.ch (137.138.203.208) by cernmxgwlb4.cern.ch (188.184.36.48) with Microsoft SMTP Server (TLS) id 14.3.487.0; Thu, 30 Apr 2020 18:35:00 +0200 Received: from CERNXCHG64.cern.ch ([fe80::a907:5c15:a284:231e]) by CERNFE25.cern.ch ([fe80::2cd7:dab6:37a7:ce81%10]) with mapi id 14.03.0487.000; Thu, 30 Apr 2020 18:35:00 +0200 From: Joao Martins Correia To: Bob Wilkinson CC: "gcc-help@gcc.gnu.org" Subject: Re: Program on old fortran IV Thread-Topic: Program on old fortran IV Thread-Index: AQHWHitSrAZ3owNDJ0m3QfBRH7waHqiRohcAgAAapoA= Date: Thu, 30 Apr 2020 16:34:59 +0000 Message-ID: References: <20200430145942.GB2626659@cristie.com> In-Reply-To: <20200430145942.GB2626659@cristie.com> Accept-Language: en-GB, en-US Content-Language: en-US X-MS-Has-Attach: X-MS-TNEF-Correlator: x-originating-ip: [84.17.52.81] Content-Type: text/plain; charset="utf-8" Content-ID: <97082593936A1B499194D5877CB44C80@cern.ch> Content-Transfer-Encoding: base64 MIME-Version: 1.0 X-EOPAttributedMessage: 0 X-Forefront-Antispam-Report: CIP:188.184.36.48; CTRY:CH; LANG:en; SCL:1; SRV:; IPV:NLI; SFV:NSPM; H:cernmxgwlb4.cern.ch; PTR:cernmx12.cern.ch; CAT:NONE; SFTY:; SFS:(376002)(396003)(39860400002)(346002)(136003)(46966005)(478600001)(2906002)(36756003)(82310400002)(82740400003)(70206006)(5660300002)(70586007)(7636003)(47076004)(336012)(2616005)(26005)(4326008)(7696005)(426003)(6916009)(33656002)(316002)(8936002)(186003)(86362001)(356005)(8676002); DIR:OUT; SFP:1101; X-MS-PublicTrafficType: Email X-MS-Office365-Filtering-Correlation-Id: a193298c-0c24-4e18-a0e7-08d7ed246dc4 X-MS-TrafficTypeDiagnostic: DB8PR06MB6234: X-Microsoft-Antispam-PRVS: X-MS-Oob-TLC-OOBClassifiers: OLM:10000; X-Forefront-PRVS: 0389EDA07F X-MS-Exchange-SenderADCheck: 1 X-Microsoft-Antispam: BCL:0; X-Microsoft-Antispam-Message-Info: 1W3Ohh/8KrWW56HaE0/Uwdow92mUyA40F/hv1Ht/vqCmIax1dkMFn/SXnH5vkUgvMoNSrmLbMo/Gs+GBSJy8qp6eNxkqY1b0oI7nFFjUkAHTmrsNAbMJyK7CnZRjsMIYeTmCFpPRQe2G3pKQFsTetmjRGxExa/NizXzY5AzLztlG4IVU9HZ6TQveAMoa413AFgkikZ5f6zIA1QhQTum0JijRCqw2YmQg+FiAjcRp1/PozRG/FV/7YqYA9EBxEQ9d9jb8m/rh8aSAAUgwtmEu0OBiKFr9HfAKrKk7iwPn8pqMi9/1Z1xyT+EUal7junMCqDnSTMsbqf+iKMC5DOhN03ncWlg5Cq5wOCm1L+rdbHAFeua2x56QRLBM6j4wl63uj4ArQmmwre3qbE1WyGL2Zl1SrvCULL/ZIyUmqaLxccu0+RlrLcfoq4QDcVisxpm6fpvY9gPVdJk4elkwiLXzxbaUf7kastEbs1qMg/2rsi4XpnLyqveLxDHDB8Vo0V1FTj/Zzlmr3g5hbv5jN9UYrA== X-OriginatorOrg: cern.ch X-MS-Exchange-CrossTenant-OriginalArrivalTime: 30 Apr 2020 16:35:00.9984 (UTC) X-MS-Exchange-CrossTenant-Network-Message-Id: a193298c-0c24-4e18-a0e7-08d7ed246dc4 X-MS-Exchange-CrossTenant-Id: c80d3499-4a40-4a8c-986e-abce017d6b19 X-MS-Exchange-CrossTenant-OriginalAttributedTenantConnectingIp: TenantId=c80d3499-4a40-4a8c-986e-abce017d6b19; Ip=[188.184.36.48]; Helo=[cernmxgwlb4.cern.ch] X-MS-Exchange-CrossTenant-FromEntityHeader: HybridOnPrem X-MS-Exchange-Transport-CrossTenantHeadersStamped: DB8PR06MB6234 X-Spam-Status: No, score=-2.6 required=5.0 tests=BAYES_00, DKIM_SIGNED, DKIM_VALID, RCVD_IN_DNSWL_LOW, RCVD_IN_MSPIKE_H2, SPF_HELO_PASS, SPF_PASS autolearn=ham autolearn_force=no version=3.4.2 X-Spam-Checker-Version: SpamAssassin 3.4.2 (2018-09-13) on server2.sourceware.org X-BeenThere: gcc-help@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gcc-help mailing list List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Thu, 30 Apr 2020 16:35:08 -0000 RGVhciBCb2INCg0KDQpNYW55IHRoYW5rcyBmb3IgYW5zd2VyaW5nLg0KVGhlIHByb2JsZW0gaXMg dGhhdCBpdCBpcyBkaWZmaWN1bHQgdG8gaWRlbnRpZnkgdGhlIHJpZ2h0IHR5cGUgb2YgdmFyaWFi bGVzIHRoZXkgdXNlIHdpdGhvdXQgZ29pbmcgdHJvdWdoIHRoZSBjb21wbGV4aXR5IG9mIHRoZSBw cm9ncmFtIOKApg0KVGhleSBhcmUgbWl4aW5nIGludGVnZXIgd2l0aCByZWFsIGFsbCB0aGUgdGlt ZSBhbmQgbm8gcmVzcGVjdCBmb3IgcHJlY2lzaW9uIC4uLg0KSSB0aGluayB0aGF0IEkgaGF2ZSBu byBvdGhlciB3YXkgdG8gZ28gdGhhbiB0aGUgcGFpbmZ1bCBvbmUsIGxpbmUgYnkgbGluZS4NCg0K VGhhbmtzIGFnYWluIGFuZCBCZXN0IHJlZ2FyZHMNCg0KSkcNCg0KDQoNCj4gT24gMzBBcHIsIDIw MjAsIGF0IDE2OjU5LCBCb2IgV2lsa2luc29uIDxib2Iud2lsa2luc29uQGNyaXN0aWUuY29tPiB3 cm90ZToNCj4gDQo+IE9uIFdlZCwgQXByIDI5LCAyMDIwIGF0IDAxOjM3OjI1UE0gKzAwMDAsIEpv YW8gTWFydGlucyBDb3JyZWlhIHdyb3RlOg0KPj4gRGVhciBHY2MgSGVscGVycw0KPj4gDQo+PiBJ IHJlY292ZXJlZCBhbiBvbGQgc2NpZW50aWZpYyBwcm9ncmFtIGNvZGUgd3JpdHRlbiBpbiBGb3J0 cmFuIElWLg0KPj4gU3RpbGwgdXNpbmcgaG9sbGVyaXRoIGFzc2lnbm1lbnRzIC0gd2hpY2ggSSB0 aGluayBJIHVuZGVyc3RhbmQsIEkgY2FuIGNvbXBpbGUgaXQgd2l0aCB0aGUgbWFueSB3YXJuaW5n cw0KPj4gcmVnYXJkaW5nIGVzc2VudGlhbGx5IDMgdGhpbmdzDQo+PiANCj4+IFRoZSBwcm9ncmFt IHN0YXJ0cyBydW5uaW5nLCBwcm9wZXJseSwgcmVhZHMgaW5wdXQgZmlsZXMgYW5kIGV4ZWN1dGUg c29tZSByb3V0aW5lcywgYnV0IHRoZW4gZ2V0cyBzdHVjayB3aXRoIHN0cmFuZ2UgaHVnZQ0KPj4g bnVtYmVycyB0aGF0IGhhdmUgbm8gYXBwYXJlbnQgcmVhc29uIHRvIGJlIHRoZXJlLg0KPj4gVGhl IHByb2JsZW0gaXMgaW4gZmFjdCB0aGF0IHRoZXJlIGFyZSBubyBhc3NpZ25tZW50IG9mIHZhcmlh YmxlIHR5cGVzIGFuZCB0aGVyZSBhcmUgbWFueSBjb21tb25zIHdpdGggZGlmZmVyZW50IHZhcmlh YmxlIG5hbWVzDQo+PiB0aGF0IGNvbnRyaWJ1dGUgdG8gdGhlIGNvbmZ1c2lvbiB3aGVuIGRlYnVn Z2luZy4gU2V0dGluZyDigJxpbXBsaWNpdCBub25l4oCdIGNyZWF0ZXMgdG9vIG1hbnkgZXJyb3Jz LCBzaW5jZSBzb21ldGltZXMgaXMgbm90IGVhc3kNCj4+IHRvIGFzc2lnbiB0aGUgdHlwZSBvZiB0 aGUgdmFyaWFibGUgb24gYSBjb2RlIHdpdGggMzAgcm91dGluZXMgYW5kIG1vcmUgdGhhbiA1MDAw IGxpbmVzLg0KPiANCj4gSXQgaXMgbWFueSB5ZWFycyBzaW5jZSBJIGRpZCBhbnkgRk9SVFJBTiBw cm9ncmFtbWluZywgYnV0IEkgdmFndWVseQ0KPiByZW1lbWJlciB0aGF0IGltcGxpY2l0IG5vbmUg Y291bGQgYmUgdXNlZCBvbiBhIHN1YnJvdXRpbmUgYnkNCj4gc3Vicm91dGluZSBiYXNpcyAodGhv dWdoIHRoYXQgaXMgcHJvYmFibHkgY29tcGlsZXItZGVwZW5kZW50KS4NCj4gDQo+IElmIHRoaXMg d29ya3MgZm9yIHlvdSwgaXQgbWF5IG1ha2UgeW91ciBqb2IgZWFzaWVyLiBJIGRvIG5vdCBsaWtl DQo+IGltcGxpY2l0IC4uLg0KPiANCj4gQm9iDQo+IC0tIA0KPiAiV2UgYXJlIGluIHRoZSBiZWdp bm5pbmcgb2YgYSBtYXNzIGV4dGluY3Rpb24sIGFuZCBhbGwgeW91IGNhbiB0YWxrDQo+IGFib3V0 IGlzIG1vbmV5IGFuZCBmYWlyeSB0YWxlcyBvZiBldGVybmFsIGVjb25vbWljIGdyb3d0aC4iDQo+ ICAtIEdyZXRhIFRodW5iZXJnDQoNCg==