From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from smtp5-g21.free.fr (smtp5-g21.free.fr [IPv6:2a01:e0c:1:1599::14]) by sourceware.org (Postfix) with ESMTPS id 567473857C6E; Tue, 21 Jul 2020 22:09:19 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.3.2 sourceware.org 567473857C6E Authentication-Results: sourceware.org; dmarc=none (p=none dis=none) header.from=free.fr Authentication-Results: sourceware.org; spf=none smtp.mailfrom=dhumieres.dominique@free.fr Received: from webmail.free.fr (unknown [172.20.243.54]) by smtp5-g21.free.fr (Postfix) with ESMTP id 855DC5FF96; Wed, 22 Jul 2020 00:09:17 +0200 (CEST) Received: from 2a01:e0a:8a:4180:c468:861:6947:eb90 by webmail.free.fr MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="=_6770820268f73e9d13b8760160882646" Date: Wed, 22 Jul 2020 00:09:17 +0200 From: dhumieres.dominique@free.fr To: fortran@gcc.gnu.org Cc: gcc-patches@gcc.gnu.org, jvdelisle@charter.net Subject: [Patch fortran] PR 93567 - G edit descriptor uses E instead of F editing in rounding mode UP Message-ID: <0c70d7b759a2764cbc80bf8676dccd87@free.fr> X-Sender: dhumieres.dominique@free.fr User-Agent: Webmail Free/1.3.3 X-Spam-Status: No, score=2.8 required=5.0 tests=BAYES_00, FREEMAIL_FROM, KAM_DMARC_STATUS, KAM_LAZY_DOMAIN_SECURITY, RCVD_IN_DNSWL_LOW, SPF_HELO_NONE, SPF_NONE, SPOOFED_FREEMAIL, TXREP, UNPARSEABLE_RELAY autolearn=no autolearn_force=no version=3.4.2 X-Spam-Level: ** X-Spam-Checker-Version: SpamAssassin 3.4.2 (2018-09-13) on server2.sourceware.org X-BeenThere: gcc-patches@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gcc-patches mailing list List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Tue, 21 Jul 2020 22:09:20 -0000 --=_6770820268f73e9d13b8760160882646 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset=US-ASCII; format=flowed I am not set up to commit on git, someone will have to do it for me. TIA Dominique --=_6770820268f73e9d13b8760160882646 Content-Transfer-Encoding: base64 Content-Type: text/x-diff; name=patch-93567 Content-Disposition: attachment; filename=patch-93567; size=3325 LS0tIC4uL19jbGVhbi9saWJnZm9ydHJhbi9pby93cml0ZV9mbG9hdC5kZWYJMjAyMC0wNi0xMyAw MzoxMTo1NS4wMDAwMDAwMDAgKzAyMDAKKysrIGxpYmdmb3J0cmFuL2lvL3dyaXRlX2Zsb2F0LmRl ZgkyMDIwLTA3LTIxIDIzOjAzOjA4LjAwMDAwMDAwMCArMDIwMApAQCAtOTg3LDE2ICs5ODcsMTkg QEAgZGV0ZXJtaW5lX2VuX3ByZWNpc2lvbiAoc3RfcGFyYW1ldGVyX2R0IAogCSAgdyA9IGRlZmF1 bHRfd2lkdGg7XAogCSAgZCA9IHByZWNpc2lvbjtcCiAJfVwKKyAgICAgIC8qIFRoZSBzd2l0Y2gg YmV0d2VlbiBGTVRfRSBhbmQgRk1UX0YgaXMgYmFzZWQgb24gdGhlIGFic29sdXRlIHZhbHVlLiAg XAorICAgICAgICAgU2V0IHI9MCBmb3Igcm91bmRpbmcgdG93YXJkIHplcm8gYW5kIHIgPSAxIG90 aGVyd2lzZS4gIFwKKwkgSWYgKGV4cF9kIC0gbSkgPT0gMSB0aGVyZSBpcyBubyByb3VuZGluZyBu ZWVkZWQuICAqL1wKICAgICAgIHN3aXRjaCAoZHRwLT51LnAuY3VycmVudF91bml0LT5yb3VuZF9z dGF0dXMpXAogCXtcCiAJICBjYXNlIFJPVU5EX1pFUk86XAotCSAgICByID0gc2lnbl9iaXQgPyAx LjAgOiAwLjA7XAorCSAgICByID0gMC4wO1wKIAkgICAgYnJlYWs7XAogCSAgY2FzZSBST1VORF9V UDpcCi0JICAgIHIgPSAxLjA7XAorCSAgICByID0gc2lnbl9iaXQgPyAwLjAgOiAxLjA7XAogCSAg ICBicmVhaztcCiAJICBjYXNlIFJPVU5EX0RPV046XAotCSAgICByID0gMC4wO1wKKwkgICAgciA9 IHNpZ25fYml0ID8gMS4wIDogMC4wO1wKIAkgICAgYnJlYWs7XAogCSAgZGVmYXVsdDpcCiAJICAg IGJyZWFrO1wKQEAgLTEwMDQsNyArMTAwNyw4IEBAIGRldGVybWluZV9lbl9wcmVjaXNpb24gKHN0 X3BhcmFtZXRlcl9kdCAKICAgICAgIGV4cF9kID0gY2FsY3VsYXRlX2V4cF8gIyMgeCAoZCk7XAog ICAgICAgcl9zYyA9ICgxIC0gciAvIGV4cF9kKTtcCiAgICAgICB0ZW1wID0gMC4xICogcl9zYztc Ci0gICAgICBpZiAoKG0gPiAwLjAgJiYgKChtIDwgdGVtcCkgfHwgKHIgPj0gKGV4cF9kIC0gbSkp KSlcCisgICAgICBpZiAoKG0gPiAwLjAgJiYgKChtIDwgdGVtcCkgfHwgKHIgPCAxICYmIHIgPj0g KGV4cF9kIC0gbSkpXAorCQkJCSAgfHwgKHIgPT0gMSAmJiAxID4gKGV4cF9kIC0gbSkpKSlcCiAJ ICB8fCAoKG0gPT0gMC4wKSAmJiAhKGNvbXBpbGVfb3B0aW9ucy5hbGxvd19zdGRcCiAJCQkgICAg ICAmIChHRkNfU1REX0YyMDAzIHwgR0ZDX1NURF9GMjAwOCkpKVwKIAkgIHx8ICBkID09IDApXAot LS0gLi4vX2NsZWFuL2djYy90ZXN0c3VpdGUvZ2ZvcnRyYW4uZGcvcm91bmRfMy5mMDgJMjAyMC0w Ni0xMyAwMzoxMTo1NC4wMDAwMDAwMDAgKzAyMDAKKysrIGdjYy90ZXN0c3VpdGUvZ2ZvcnRyYW4u ZGcvcm91bmRfMy5mMDgJMjAyMC0wNy0yMSAwMToxNDo1Ni4wMDAwMDAwMDAgKzAyMDAKQEAgLTEx MCw2ICsxMTAsMzAgQEAgcHJvZ3JhbSBwcjQ4NjE1CiAgICAgY2FsbCBjaGVja2ZtdCgiKFJVLEUx Ny4xKSIsIG5lYXJlc3QoMi4wLCAxLjApLCAgICAgIiAgICAgICAgICAwLjNFKzAxIikKICAgICBj YWxsIGNoZWNrZm10KCIoUkQsRTE3LjEpIiwgbmVhcmVzdCgzLjAsIC0xLjApLCAgICAiICAgICAg ICAgIDAuMkUrMDEiKQogCisgICAgY2FsbCBjaGVja2ZtdCgiKEcxMi4yKSIsIDk5LjAsICAgICAg ICIgICAgIDk5LiAgICAiKQorICAgIGNhbGwgY2hlY2tmbXQoIihHMTIuMikiLCA5OS41LCAgICAg ICAiICAgIDAuMTBFKzAzIikKKyAgICBjYWxsIGNoZWNrZm10KCIoRzEyLjIpIiwgMTAwLjAsICAg ICAgIiAgICAwLjEwRSswMyIpCisgICAgY2FsbCBjaGVja2ZtdCgiKEcxMi4yKSIsIC05OS4wLCAg ICAgICIgICAgLTk5LiAgICAiKQorICAgIGNhbGwgY2hlY2tmbXQoIihHMTIuMikiLCAtOTkuNSwg ICAgICAiICAgLTAuMTBFKzAzIikKKyAgICBjYWxsIGNoZWNrZm10KCIoRzEyLjIpIiwgLTEwMC4w LCAgICAgIiAgIC0wLjEwRSswMyIpCisgICAgY2FsbCBjaGVja2ZtdCgiKFJVLEcxMi4yKSIsIDk5 LjAsICAgICIgICAgIDk5LiAgICAiKSAgICAhIHByOTM1NjcKKyAgICBjYWxsIGNoZWNrZm10KCIo UlUsRzEyLjIpIiwgOTkuMDEsICAgIiAgICAwLjEwRSswMyIpCisgICAgY2FsbCBjaGVja2ZtdCgi KFJVLEcxMi4yKSIsIC05OS4wLCAgICIgICAgLTk5LiAgICAiKQorICAgIGNhbGwgY2hlY2tmbXQo IihSVSxHMTIuMikiLCAtOTkuMDEsICAiICAgIC05OS4gICAgIikKKyAgICBjYWxsIGNoZWNrZm10 KCIoUlUsRzEyLjIpIiwgLTEwMC4wMSwgIiAgIC0wLjEwRSswMyIpCisgICAgY2FsbCBjaGVja2Zt dCgiKFJVLEcxMi40KSIsIDk5LjAgLCAgICIgICA5OS4wMCAgICAiKQorICAgIGNhbGwgY2hlY2tm bXQoIihSVSxHMTIuNCkiLCA5OS4wMSwgICAiICAgOTkuMDIgICAgIikKKyAgICBjYWxsIGNoZWNr Zm10KCIoUkQsRzEyLjIpIiwgOTkuMCwgICAgIiAgICAgOTkuICAgICIpCisgICAgY2FsbCBjaGVj a2ZtdCgiKFJELEcxMi4yKSIsIDk5LjAxLCAgICIgICAgIDk5LiAgICAiKQorICAgIGNhbGwgY2hl Y2tmbXQoIihSRCxHMTIuMikiLCAxMDAuMDEsICAiICAgIDAuMTBFKzAzIikKKyAgICBjYWxsIGNo ZWNrZm10KCIoUkQsRzEyLjIpIiwgLTk5LjAsICAgIiAgICAtOTkuICAgICIpCisgICAgY2FsbCBj aGVja2ZtdCgiKFJELEcxMi4yKSIsIC05OS4wMSwgICIgICAtMC4xMEUrMDMiKQorICAgIGNhbGwg Y2hlY2tmbXQoIihSRCxHMTIuMikiLCAtMTAwLjAwLCAiICAgLTAuMTBFKzAzIikKKyAgICBjYWxs IGNoZWNrZm10KCIoUnosRzEyLjIpIiwgOTkuMDEsICAgIiAgICAgOTkuICAgICIpCisgICAgY2Fs bCBjaGVja2ZtdCgiKFJ6LEcxMi4yKSIsIDEwMC4wMSwgICIgICAgMC4xMEUrMDMiKQorICAgIGNh bGwgY2hlY2tmbXQoIihSeixHMTIuMikiLCAtOTkuMDEsICAiICAgIC05OS4gICAgIikKKyAgICBj YWxsIGNoZWNrZm10KCIoUnosRzEyLjIpIiwgLTEwMC4wMSwgIiAgIC0wLjEwRSswMyIpCisKIGNv bnRhaW5zCiAgICAgc3Vicm91dGluZSBjaGVja2ZtdChmbXQsIHgsIGNtcCkKICAgICAgICAgY2hh cmFjdGVyKGxlbj0qKSwgaW50ZW50KGluKSA6OiBmbXQKQEAgLTExOSw2ICsxNDMsNiBAQCBjb250 YWlucwogICAgICAgICAKICAgICAgICAgd3JpdGUocywgZm10KSB4CiAgICAgICAgIGlmIChzIC89 IGNtcCkgU1RPUCAxCi0gICAgICAgICFpZiAocyAvPSBjbXApIHByaW50ICIoYSwxeCxhLCcgZXhw ZWN0ZWQ6ICcsMXgpIiwgZm10LCBzLCBjbXAKKyAgICAgICAgIWlmIChzIC89IGNtcCkgcHJpbnQg IihhLDF4LGEsJyBleHBlY3RlZDogJywxeCxhKSIsIGZtdCwgcywgY21wCiAgICAgZW5kIHN1YnJv dXRpbmUKIGVuZCBwcm9ncmFtCg== --=_6770820268f73e9d13b8760160882646--