From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from esa2.mentor.iphmx.com (esa2.mentor.iphmx.com [68.232.141.98]) by sourceware.org (Postfix) with ESMTPS id 568993957496; Mon, 19 Dec 2022 09:09:21 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.1 sourceware.org 568993957496 Authentication-Results: sourceware.org; dmarc=none (p=none dis=none) header.from=codesourcery.com Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=mentor.com X-IronPort-AV: E=Sophos;i="5.96,255,1665475200"; d="diff'?scan'208";a="90765021" Received: from orw-gwy-02-in.mentorg.com ([192.94.38.167]) by esa2.mentor.iphmx.com with ESMTP; 19 Dec 2022 01:09:19 -0800 IronPort-SDR: CtDi5eQFjkjY6PhTpGLaQtU36sVXFB6dIpLLAjSHNXHXp2L2rs3KVjws4gTU0rAmPHviL0JuuY zVarC97mPlH031G6j+p2VEgCXDoQTJWuyFO4QfvYjnxv3dLLltgEPeUjG2vWDlZzJJzRKeM+4b 3CTLqFKDcgGWH5suy+tM2dFBWyiRbPC1kaTA/ChMKthUhaV5GUu6ARMIFIgOYFc1QzervJDJzA lFLelaxMI5uHsY5wxVnHbbMFx/ZqlkTMACfIp51R4LbazmEfM/CsAJ/Ey976eSH1cnl6nUq/6m TuU= Content-Type: multipart/mixed; boundary="------------UNOmms0NmIfCxcVhAP2zZqMO" Message-ID: Date: Mon, 19 Dec 2022 10:09:09 +0100 MIME-Version: 1.0 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:102.0) Gecko/20100101 Thunderbird/102.6.0 Content-Language: en-US To: gcc-patches , fortran , Jerry D , NightStrike From: Tobias Burnus Subject: [Patch] gfortran.dg/read_dir.f90: Make PASS on Windows X-Originating-IP: [137.202.0.90] X-ClientProxiedBy: svr-ies-mbx-13.mgc.mentorg.com (139.181.222.13) To svr-ies-mbx-12.mgc.mentorg.com (139.181.222.12) X-Spam-Status: No, score=-11.4 required=5.0 tests=BAYES_00,GIT_PATCH_0,HEADER_FROM_DIFFERENT_DOMAINS,KAM_DMARC_STATUS,RCVD_IN_MSPIKE_H2,SPF_HELO_PASS,SPF_PASS,TXREP 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: --------------UNOmms0NmIfCxcVhAP2zZqMO Content-Type: text/plain; charset="UTF-8"; format=flowed Content-Transfer-Encoding: quoted-printable As discussed in #gfortran IRC, on Windows opening a directory fails with EA= CCESS. (It works under Cygwin - nightstrike was so kind to test this.) Additionally, '[ -d dir ] || mkdir dir' is also not very portable. Hence, I use an auxiliary C file calling the POSIX functions and expect a fail for non-Cygwin windows. Comments? Suggestions? - If there aren't any, I plan to commit it as obvious tomorrow. Tobias ----------------- Siemens Electronic Design Automation GmbH; Anschrift: Arnulfstra=C3=9Fe 201= , 80634 M=C3=BCnchen; Gesellschaft mit beschr=C3=A4nkter Haftung; Gesch=C3= =A4ftsf=C3=BChrer: Thomas Heurung, Frank Th=C3=BCrauf; Sitz der Gesellschaf= t: M=C3=BCnchen; Registergericht M=C3=BCnchen, HRB 106955 --------------UNOmms0NmIfCxcVhAP2zZqMO Content-Type: text/x-patch; charset="UTF-8"; name="fix-read_dir.diff" Content-Disposition: attachment; filename="fix-read_dir.diff" Content-Transfer-Encoding: base64 Z2ZvcnRyYW4uZGcvcmVhZF9kaXIuZjkwOiBNYWtlIFBBU1Mgb24gV2luZG93cwoKQ2FsbCBQ T1NJWCdzIHN0YXQvbWtkaXIvcm1kaXIgaW5zdGVhZCBvZiB1c2luZyB0aGUgc2hlbGwgdmlh ICdjYWxsIHN5c3RlbScuCkFkZGl0aW9uYWxseSwgZXhwZWN0IEVBQ0NFU1Mgb24gbm9uLUN5 Z3dpbiBXaW5kb3dzIGFzIGRvY3VtZW50ZWQgZm9yIHRyeWluZwp0byBvcGVuIGEgZGlyZWN0 b3J5LgoKZ2NjL3Rlc3RzdWl0ZS9DaGFuZ2VMb2c6CgoJKiBnZm9ydHJhbi5kZy9yZWFkX2Rp ci1hdXguYzogTmV3OyBwcm92aWRlcyBteV9ta2RpciBhbmQgbXlfcm1kaXIuCgkqIGdmb3J0 cmFuLmRnL3JlYWRfZGlyLmY5MDogQ2FsbCBteV9ta2Rpci9teV9ybWRpcjsgZXhwZWN0Cgll cnJvciBvbiBXaW5kb3dzIHdoZW4gb3BlbmluZyBhIGRpcmVjdG9yeS4KCiBnY2MvdGVzdHN1 aXRlL2dmb3J0cmFuLmRnL3JlYWRfZGlyLWF1eC5jIHwgMzkgKysrKysrKysrKysrKysrKysr KysrKysrKysrKysKIGdjYy90ZXN0c3VpdGUvZ2ZvcnRyYW4uZGcvcmVhZF9kaXIuZjkwICAg fCA0MyArKysrKysrKysrKysrKysrKysrKysrKysrKysrLS0tLQogMiBmaWxlcyBjaGFuZ2Vk LCA3NyBpbnNlcnRpb25zKCspLCA1IGRlbGV0aW9ucygtKQoKZGlmZiAtLWdpdCBhL2djYy90 ZXN0c3VpdGUvZ2ZvcnRyYW4uZGcvcmVhZF9kaXItYXV4LmMgYi9nY2MvdGVzdHN1aXRlL2dm b3J0cmFuLmRnL3JlYWRfZGlyLWF1eC5jCm5ldyBmaWxlIG1vZGUgMTAwNjQ0CmluZGV4IDAw MDAwMDAwMDAwLi5lODQwNDQ3ODUxNwotLS0gL2Rldi9udWxsCisrKyBiL2djYy90ZXN0c3Vp dGUvZ2ZvcnRyYW4uZGcvcmVhZF9kaXItYXV4LmMKQEAgLTAsMCArMSwzOSBAQAorI2luY2x1 ZGUgPHN5cy9zdGF0Lmg+ICAvKiBGb3IgbWtkaXIgKyBwZXJtaXNzaW9uIGJpdHMuICAqLwor I2luY2x1ZGUgPHVuaXN0ZC5oPiAgLyogRm9yIHJtZGlyLiAgKi8KKyNpbmNsdWRlIDxlcnJu by5oPiAgLyogRm9yIGVycm5vLiAgKi8KKyNpbmNsdWRlIDxzdGRpby5oPiAgLyogRm9yIHBl cnJvci4gICovCisjaW5jbHVkZSA8c3RkbGliLmg+ICAvKiBGb3IgYWJvcnQuICAqLworIAor Cit2b2lkCitteV9ta2RpciAoY29uc3QgY2hhciAqZGlyKQoreworICBpbnQgZXJyOworICBz dHJ1Y3Qgc3RhdCBwYXRoX3N0YXQ7CisKKyAgLyogQ2hlY2sgd2hldGhlciAnZGlyJyBleGlz dHMgYW5kIGlzIGEgZGlyZWN0b3J5LiAgKi8KKyAgZXJyID0gc3RhdCAoZGlyLCAmcGF0aF9z dGF0KTsKKyAgaWYgKGVyciAmJiBlcnJubyAhPSBFTk9FTlQpCisgICAgeworICAgICAgcGVy cm9yICgibXlfbWtkaXI6IGZhaWxlZCB0byBjYWxsIHN0YXQgZm9yIGRpcmVjdG9yeSIpOwor ICAgICAgYWJvcnQgKCk7CisgICAgfQorICBpZiAoZXJyID09IDAgJiYgIVNfSVNESVIgKHBh dGhfc3RhdC5zdF9tb2RlKSkKKyAgICB7CisgICAgICBwcmludGYgKCJteV9ta2RpcjogcGF0 aG5hbWUgJXMgaXMgbm90IGEgZGlyZWN0b3J5XG4iLCBkaXIpOworICAgICAgYWJvcnQgKCk7 CisgICAgfQorCisgIGVyciA9IG1rZGlyIChkaXIsIFNfSVJXWFUgfCBTX0lSR1JQIHwgU19J WEdSUCB8IFNfSVJPVEggfCBTX0lYT1RIKTsKKyAgaWYgKGVyciAhPSAwKQorICAgIHsKKyAg ICAgIHBlcnJvciAoIm15X21rZGlyOiBmYWlsZWQgdG8gY3JlYXRlIGRpcmVjdG9yeSIpOwor ICAgICAgYWJvcnQgKCk7CisgICAgfSAgICAKK30KKwordm9pZAorbXlfcm1kaXIgKGNvbnN0 IGNoYXIgKmRpcikKK3sKKyAgcm1kaXIgKGRpcik7Cit9CmRpZmYgLS1naXQgYS9nY2MvdGVz dHN1aXRlL2dmb3J0cmFuLmRnL3JlYWRfZGlyLmY5MCBiL2djYy90ZXN0c3VpdGUvZ2ZvcnRy YW4uZGcvcmVhZF9kaXIuZjkwCmluZGV4IGM3ZGRjNTFmYjkwLi4zYThmZjZhZGJjNyAxMDA2 NDQKLS0tIGEvZ2NjL3Rlc3RzdWl0ZS9nZm9ydHJhbi5kZy9yZWFkX2Rpci5mOTAKKysrIGIv Z2NjL3Rlc3RzdWl0ZS9nZm9ydHJhbi5kZy9yZWFkX2Rpci5mOTAKQEAgLTEsMTggKzEsNTEg QEAKICEgeyBkZy1kbyBydW4gfQorISB7IGRnLWFkZGl0aW9uYWwtb3B0aW9ucyAiLWNwcCIg fQorISB7IGRnLWFkZGl0aW9uYWwtc291cmNlcyByZWFkX2Rpci1hdXguYyB9CishCiAhIFBS NjczNjcKKwogcHJvZ3JhbSBidWcKKyAgIHVzZSBpc29fY19iaW5kaW5nCiAgICBpbXBsaWNp dCBub25lCisKKyAgIGludGVyZmFjZQorICAgICBzdWJyb3V0aW5lIG15X21rZGlyKHMpIGJp bmQoQykKKyAgICAgICAhIENhbGwgUE9TSVgncyBta2RpciAtIGFuZCBpZ25vcmUgZmFpbHMg ZHVlIHRvCisgICAgICAgISBleGlzdGluZyBkaXJlY3RvcmllcyBidXQgZmFpbCBvdGhlcndp c2UKKyAgICAgICBpbXBvcnQKKyAgICAgICBjaGFyYWN0ZXIobGVuPTEsa2luZD1jX2NoYXIp IDo6IHMoKikKKyAgICAgZW5kIHN1YnJvdXRpbmUKKyAgICAgc3Vicm91dGluZSBteV9ybWRp cihzKSBiaW5kKEMpCisgICAgICAgISBDYWxsIFBPU0lYJ3Mgcm1kaXIgLSBhbmQgaWdub3Jl IGZhaWxzCisgICAgICAgaW1wb3J0CisgICAgICAgY2hhcmFjdGVyKGxlbj0xLGtpbmQ9Y19j aGFyKSA6OiBzKCopCisgICAgIGVuZCBzdWJyb3V0aW5lCisgICBlbmQgaW50ZXJmYWNlCisK KyAgIGNoYXJhY3RlcihsZW49KiksIHBhcmFtZXRlciA6OiBzZGlyID0gImp1bmtvLmRpciIK KyAgIGNoYXJhY3RlcihsZW49KixraW5kPWNfY2hhciksIHBhcmFtZXRlciA6OiBjX3NkaXIg PSBzZGlyIC8vIGNfbnVsbF9jaGFyCisKICAgIGNoYXJhY3RlcihsZW49MSkgOjogYwotICAg Y2hhcmFjdGVyKGxlbj0yNTYpIDo6IG1lc3NhZ2UKICAgIGludGVnZXIgaW9zCi0gICBjYWxs IHN5c3RlbSgnWyAtZCBqdW5rby5kaXIgXSB8fCBta2RpciBqdW5rby5kaXInKQotICAgb3Bl bih1bml0PTEwLCBmaWxlPSdqdW5rby5kaXInLGlvc3RhdD1pb3MsYWN0aW9uPSdyZWFkJyxh Y2Nlc3M9J3N0cmVhbScpCisKKyAgIGNhbGwgbXlfbWtkaXIoY19zZGlyKQorICAgb3Blbih1 bml0PTEwLCBmaWxlPXNkaXIsaW9zdGF0PWlvcyxhY3Rpb249J3JlYWQnLGFjY2Vzcz0nc3Ry ZWFtJykKKworI2lmIGRlZmluZWQoX19NSU5HVzMyX18pCisgICAhIFdpbmRvd3MgaXMgZG9j dW1lbnRlZCB0byBmYWlsIHdpdGggRUFDQ0VTUyB3aGVuIHRyeWluZyB0byBvcGVuIGEgZGly ZWN0b3J5CisgICAhIE5vdGU6IFRlc3Rpbmcgc2hvd2VkIHRoYXQgX19DWUdXSU5fXyBkb2Vz IHBlcm1pdCBvcGVuaW5nIGRpcmVjdG9yaWVzCisgICBjYWxsIG15X3JtZGlyKGNfc2RpcikK KyAgIGlmIChpb3MgPT0gMCkgJgorICAgICAgc3RvcCAzICAhIEV4cGVjdGVkIEVBQ0NFU1MK KyAgIHN0b3AgMCAgISBPSworI2VuZGlmICAgCisKICAgIGlmIChpb3MubmUuMCkgdGhlbgot ICAgICAgY2FsbCBzeXN0ZW0oJ3JtZGlyIGp1bmtvLmRpcicpCisgICAgICBjYWxsIG15X3Jt ZGlyKGNfc2RpcikKICAgICAgIFNUT1AgMQogICAgZW5kIGlmCiAgICByZWFkKDEwLCBpb3N0 YXQ9aW9zKSBjCi0gICBpZiAoaW9zLm5lLjIxLmFuZC5pb3MubmUuMCkgdGhlbiAKKyAgIGlm IChpb3MubmUuMjEuYW5kLmlvcy5uZS4wKSB0aGVuICAhIEVJU0RJUiBoYXMgb2Z0ZW4gdGhl IHZhbHVlIDIxCiAgICAgICBjbG9zZSgxMCwgc3RhdHVzPSdkZWxldGUnKQogICAgICAgU1RP UCAyCiAgICBlbmQgaWYK --------------UNOmms0NmIfCxcVhAP2zZqMO--