From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from EUR05-DB8-obe.outbound.protection.outlook.com (mail-db8eur05on2052.outbound.protection.outlook.com [40.107.20.52]) by sourceware.org (Postfix) with ESMTPS id F2CFB38930E6 for ; Wed, 29 Apr 2020 13:37:53 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.3.2 sourceware.org F2CFB38930E6 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=Znd2ruJaHJVTQj2WRg+3ktBvzJRQ+XxXykmnt6vudfdGHE0UEBZcWMaq4EYunC3AQGpyisREIB3Yj9+CcmnP3wwRbIOv8SeiWXW9QKWXpoXpXeTsKoOwp1qfrZ2N90Omq0aoge41KlY9rJtxW0xXf70lY3+KO3xila+nKVYTUdS2X2bp6W2icQnsmU6JSvnfIN3aGy62I38GLkDDqfF2lkwXTH7GRVN+xHmPee6NvjY69d31i24f+2vUaZNeGrEB8TBiDP1zdBFKH2hX7m/xfFZDJC6HpDHTsv5WfLdN/tbcK/hv8rTkJllBrSwDit6zOqRUcf8ksVpkuNgGRCIRTA== 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=b/biBpzVMc1irkt80BfU3RL0LcQXAHHjmpcJyeeC5r0=; b=cQb7OB0dVM+Q8TY9B6c8kW1TDpGi1TIV0XUnG0QO2k46jD0pdS3rwRGlCodhk7z2hqZOz1XVgRIp6bIfQznwdpITdRoespubHlpFbEQYiuJqDiki7YgATerp/ZwMfg2Zd7v+PLKgCx0Dgr4QpuJX82Vmve9KA0ERtFlEzMYmUya28VSNOJzFlhPTXovYN0BAK6xro8H0NLJe3LlLmcBaeNP/75UgklaruvHD6owMSUSElhJeR1wE4pONp9LhaZXylsAMA+rrYRuT7L65PttKsuQodSofF5ZR90lTv79yGjrd/xrmjCzMLWk4uS1n/oYIqDKFt4bYGkDYlESlHwsN4g== ARC-Authentication-Results: i=1; mx.microsoft.com 1; spf=pass (sender ip is 188.184.36.46) 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=b/biBpzVMc1irkt80BfU3RL0LcQXAHHjmpcJyeeC5r0=; b=O3pwIZTCUPnCvNNU9rLKHxEOgY8Cd9mqr6B/jdp63ruEJKlwTK9JUCgdt0gltC8nRDp8eMLVdMZvfiMR7zBXvI5R5q+tm5FK67kS6nNAk+o712sJNBD3W7PInEhwWAWArXAnATwGpv/g4xr1sSsF9wPiXSFzeCxP11WXB96dcTs= Received: from AM6PR01CA0045.eurprd01.prod.exchangelabs.com (2603:10a6:20b:e0::22) by VE1PR06MB6317.eurprd06.prod.outlook.com (2603:10a6:803:124::20) with Microsoft SMTP Server (version=TLS1_2, cipher=TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384) id 15.20.2937.13; Wed, 29 Apr 2020 13:37:52 +0000 Received: from AM5EUR02FT019.eop-EUR02.prod.protection.outlook.com (2603:10a6:20b:e0:cafe::b1) by AM6PR01CA0045.outlook.office365.com (2603:10a6:20b:e0::22) with Microsoft SMTP Server (version=TLS1_2, cipher=TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384) id 15.20.2958.19 via Frontend Transport; Wed, 29 Apr 2020 13:37:52 +0000 Authentication-Results: spf=pass (sender IP is 188.184.36.46) 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.46 as permitted sender) receiver=protection.outlook.com; client-ip=188.184.36.46; helo=cernmxgwlb4.cern.ch; Received: from cernmxgwlb4.cern.ch (188.184.36.46) by AM5EUR02FT019.mail.protection.outlook.com (10.152.8.169) with Microsoft SMTP Server (version=TLS1_2, cipher=TLS_ECDHE_RSA_WITH_AES_256_CBC_SHA384) id 15.20.2958.19 via Frontend Transport; Wed, 29 Apr 2020 13:37:51 +0000 Received: from cernfe02.cern.ch (188.184.36.47) by cernmxgwlb4.cern.ch (188.184.36.46) with Microsoft SMTP Server (TLS) id 14.3.487.0; Wed, 29 Apr 2020 15:37:26 +0200 Received: from CERNXCHG64.cern.ch ([fe80::a907:5c15:a284:231e]) by CERNFE02.cern.ch ([fe80::bc89:8f4e:8731:2c47%13]) with mapi id 14.03.0487.000; Wed, 29 Apr 2020 15:37:25 +0200 From: Joao Martins Correia To: "gcc-help@gcc.gnu.org" Subject: Program on old fortran IV Thread-Topic: Program on old fortran IV Thread-Index: AQHWHitR+hfxTklZk0uoJURGRwINwQ== Date: Wed, 29 Apr 2020 13:37:25 +0000 Message-ID: Accept-Language: en-GB, en-US Content-Language: en-US X-MS-Has-Attach: X-MS-TNEF-Correlator: x-originating-ip: [84.17.52.7] Content-Type: text/plain; charset="utf-8" Content-ID: Content-Transfer-Encoding: base64 MIME-Version: 1.0 X-EOPAttributedMessage: 0 X-Forefront-Antispam-Report: CIP:188.184.36.46; CTRY:CH; LANG:en; SCL:1; SRV:; IPV:NLI; SFV:NSPM; H:cernmxgwlb4.cern.ch; PTR:cernmx13.cern.ch; CAT:NONE; SFTY:; SFS:(39860400002)(396003)(376002)(346002)(136003)(46966005)(7696005)(478600001)(26005)(6916009)(5660300002)(33656002)(82740400003)(70586007)(2906002)(8936002)(8676002)(186003)(36756003)(7636003)(2616005)(70206006)(82310400002)(336012)(86362001)(426003)(356005)(47076004)(316002); DIR:OUT; SFP:1101; X-MS-PublicTrafficType: Email X-MS-Office365-Filtering-Correlation-Id: de3d41a9-8760-4132-0610-08d7ec4283ef X-MS-TrafficTypeDiagnostic: VE1PR06MB6317: X-Microsoft-Antispam-PRVS: X-MS-Oob-TLC-OOBClassifiers: OLM:9508; X-Forefront-PRVS: 03883BD916 X-MS-Exchange-SenderADCheck: 1 X-Microsoft-Antispam: BCL:0; X-Microsoft-Antispam-Message-Info: iWK8LtejI4qTUabgIqYafhcqAlkwfkgKU0HLOSnRXMKflEqAxb9Z9lTsmcPwBAtpFvHIJ9CsTndHPf7YcneYk54TNpiIyHgLODPPmfetEhRNRVuQPPR+UjHBbCR3WczQJxrrueYhUKSZkCDI/cL6xvtYbE+Wa/KSfIT5a5q6WQRpnzbsBzm5p6cxvXTCdOR75Fz8Gg2Iu/qNI8gwPAI/Na8dxsLH7lfp4XPLjH1/KOL29wE8FGzg/4wi9dIyS2CiCZeOGw3PUBn71G/k554v6urHJ4+69BvFwL/HUb185ylK2Lq6ptyUOaQra9jonzbZnrnk+bC6Mp9V+sX5Hv5KByXdeeP8zfE5e8uuYBIm7V1RWgcuYWV0441+CxkDicyLbp9NO0bJ7d21bD5zpGZyL3JGidIR08dGlg8J3zUsepL82ofvh5CTDS2E0T9kB0WVSZcdw7d9lpteF8y4/MeiSu/FafOSsbzQJC2JF8+kYSxtVGgrNAOh4/GoPxJtOhAuDKwVCG7mj5ajPY5bMP/g9g== X-OriginatorOrg: cern.ch X-MS-Exchange-CrossTenant-OriginalArrivalTime: 29 Apr 2020 13:37:51.9342 (UTC) X-MS-Exchange-CrossTenant-Network-Message-Id: de3d41a9-8760-4132-0610-08d7ec4283ef 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.46]; Helo=[cernmxgwlb4.cern.ch] X-MS-Exchange-CrossTenant-FromEntityHeader: HybridOnPrem X-MS-Exchange-Transport-CrossTenantHeadersStamped: VE1PR06MB6317 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: Wed, 29 Apr 2020 13:37:56 -0000 RGVhciBHY2MgSGVscGVycw0KDQpJIHJlY292ZXJlZCBhbiBvbGQgc2NpZW50aWZpYyBwcm9ncmFt IGNvZGUgd3JpdHRlbiBpbiBGb3J0cmFuIElWLg0KU3RpbGwgdXNpbmcgaG9sbGVyaXRoIGFzc2ln bm1lbnRzIC0gd2hpY2ggSSB0aGluayBJIHVuZGVyc3RhbmQsIEkgY2FuIGNvbXBpbGUgaXQgd2l0 aCB0aGUgbWFueSB3YXJuaW5ncw0KcmVnYXJkaW5nIGVzc2VudGlhbGx5IDMgdGhpbmdzDQoNCjEt IGhvbGxlcml0aA0KDQoyLSDigJxkbyIgY3ljbGVzIGluZGV4ZWQgdG8gYW4gYWN0aXZlIGNvbW1h bmQgbGluZSBpbnN0ZWFkIG9mIOKAnGVuZGRvIiBvciDigJxjb250aW51ZeKAnSwgZS5nLg0KDQpk bwkxMCBpPTEsbg0KIAkJeD14KzENCjEwCXk9eSsxDQoNCjMt4oCcaWbigJ0gb2YgdGhlIHR5cGUN Cg0KIElmIChuKSAxMCwyMCwzMA0KDQpBbGwgb2YgdGhpcyBjYW4gYmUgY2xlYW5lZCwgYnV0IEkg aGF2ZSB0aGUgZmVlbGluZyB0aGF0IGluIHNwaXRlIG9mIHRoZSB3YXJuaW5ncyB0aGUgY29tcGls ZXIgc3RpbGwgdHJlYXRzIHRoZXNlIDMgd2FybmluZ3MgY29ycmVjdGx5LCBzaW5jZSBJIGNvdWxk IHRlc3QgaXQNCndpdGggY29oZXJlbnQgcmVzdWx0cy4NCg0KVGhlIHByb2dyYW0gc3RhcnRzIHJ1 bm5pbmcsIHByb3Blcmx5LCByZWFkcyBpbnB1dCBmaWxlcyBhbmQgZXhlY3V0ZSBzb21lIHJvdXRp bmVzLCBidXQgdGhlbiBnZXRzIHN0dWNrIHdpdGggc3RyYW5nZSBodWdlDQpudW1iZXJzIHRoYXQg aGF2ZSBubyBhcHBhcmVudCByZWFzb24gdG8gYmUgdGhlcmUuDQpUaGUgcHJvYmxlbSBpcyBpbiBm YWN0IHRoYXQgdGhlcmUgYXJlIG5vIGFzc2lnbm1lbnQgb2YgdmFyaWFibGUgdHlwZXMgYW5kIHRo ZXJlIGFyZSBtYW55IGNvbW1vbnMgd2l0aCBkaWZmZXJlbnQgdmFyaWFibGUgbmFtZXMNCnRoYXQg Y29udHJpYnV0ZSB0byB0aGUgY29uZnVzaW9uIHdoZW4gZGVidWdnaW5nLiBTZXR0aW5nIOKAnGlt cGxpY2l0IG5vbmXigJ0gY3JlYXRlcyB0b28gbWFueSBlcnJvcnMsIHNpbmNlIHNvbWV0aW1lcyBp cyBub3QgZWFzeQ0KdG8gYXNzaWduIHRoZSB0eXBlIG9mIHRoZSB2YXJpYWJsZSBvbiBhIGNvZGUg d2l0aCAzMCByb3V0aW5lcyBhbmQgbW9yZSB0aGFuIDUwMDAgbGluZXMuDQoNCkkgYW0gY29uc2lk ZXJpbmcgcmV2aWV3aW5nIGl0IGZ1bGx5LCBidXQgZmlyc3Qgd291bGQgbGlrZSB0byBrbm93IGlm IHRoZXJlIGlzIHNvbWUgb3B0aW9ucyB0aGF0IGNvdWxkIGhlbHAgZW11bGF0aW5nDQphbiBvbGRl ciBjb21waWxlciBmb3IgZm9ydHJhbiBJVi4gSW4gdGhlIG1vbWVudCB0aGUgZm9ydHJhbiByb3V0 aW5lcyBoYXZlIHR5cGUgLmYgDQoNClRoYW5rcyBhbnl3YXkNCg0KQ2hlZXJzDQoNCkpvw6NvIENv cnJlaWE=