From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from esa1.mentor.iphmx.com (esa1.mentor.iphmx.com [68.232.129.153]) by sourceware.org (Postfix) with ESMTPS id 60732383FB86; Thu, 6 Oct 2022 10:55:10 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.1 sourceware.org 60732383FB86 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.95,163,1661846400"; d="diff'?scan'208";a="87009033" Received: from orw-gwy-01-in.mentorg.com ([192.94.38.165]) by esa1.mentor.iphmx.com with ESMTP; 06 Oct 2022 02:55:06 -0800 IronPort-SDR: +OxlVNBpL2La5cdN1YKDZpx/zzyoNdAyaNJKBD+HHo7ytceEJ/hmVUnQvynIPwhxdkWIYR4HAI A5GyDK5zJbgFUUhsXrtmN2lZh8H0Xi7/iJmnWGI/XaVptD9bBce6aHxuDFLZWeltXxCC88vpe/ dbMT2k8DvCi/lM46JpOCKgS29LhgSEgC94j7h1pD3KqsZSVVvdDp7fADKAfCqqhr3Lcdhw5l+2 TaMa1b3+GZHN+AAANHx+SHMNckDTkFYZ/QLpWmJC2UpCa/S9r39Loy85Z0vrxjJpPKuODjTpPL HL8= Content-Type: multipart/mixed; boundary="------------TqoEKoh9kP3DeFCR9tkLQ2ZR" Message-ID: Date: Thu, 6 Oct 2022 12:55:01 +0200 MIME-Version: 1.0 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:102.0) Gecko/20100101 Thunderbird/102.3.1 Content-Language: en-US To: gcc-patches , fortran , Jakub Jelinek From: Tobias Burnus Subject: [Patch] openmp: Map holds clause to IFN_ASSUME for Fortran X-Originating-IP: [137.202.0.90] X-ClientProxiedBy: svr-ies-mbx-12.mgc.mentorg.com (139.181.222.12) 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,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: --------------TqoEKoh9kP3DeFCR9tkLQ2ZR Content-Type: text/plain; charset="UTF-8"; format=flowed Content-Transfer-Encoding: quoted-printable Same as for C/C++, albeit a tiny bit longer patch. I don't know whether it makes sense to handle =E2=80=93 in the long run =E2= =80=93 the case of se.pre/se.post being nonempty =E2=80=93 and, if so, how. OK for mainline? 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 --------------TqoEKoh9kP3DeFCR9tkLQ2ZR Content-Type: text/x-patch; charset="UTF-8"; name="omp-assumes-hold.diff" Content-Disposition: attachment; filename="omp-assumes-hold.diff" Content-Transfer-Encoding: base64 b3Blbm1wOiBNYXAgaG9sZHMgY2xhdXNlIHRvIElGTl9BU1NVTUUgZm9yIEZvcnRyYW4KClNh bWUgYXMgcjEzLTMxMDctZzg0N2Y1YWRkYzRkMDdhMmYzYjk1ZjVkYWE1MGFiNGE2NGRmZDk1 N2QgZGlkIGZvciBDL0MrKy4KQ29udmVydCAnISRvbXAgYXNzdW1lIGhvbGRzKGNvbmQpJyB0 byBJRk5fQVNTVU1FIChjb25kKS4KICAgIApnY2MvZm9ydHJhbi8KCSogdHJhbnMtb3Blbm1w LmNjIChnZmNfdHJhbnNfb21wX2Fzc3VtZSk6IE5ldy4KCShnZmNfdHJhbnNfb21wX2RpcmVj dGl2ZSk6IENhbGwgaXQuCgpnY2MvdGVzdHN0dWl0ZS8KCSogZ2ZvcnRyYW4uZGcvZ29tcC9h c3N1bWUtMy5mOTA6IE5ldyB0ZXN0LgoKIGdjYy9mb3J0cmFuL3RyYW5zLW9wZW5tcC5jYyAg ICAgICAgICAgICAgICAgfCAyNyArKysrKysrKysrKysrKysrLQogZ2NjL3Rlc3RzdWl0ZS9n Zm9ydHJhbi5kZy9nb21wL2Fzc3VtZS0zLmY5MCB8IDQ2ICsrKysrKysrKysrKysrKysrKysr KysrKysrKysrCiAyIGZpbGVzIGNoYW5nZWQsIDcyIGluc2VydGlvbnMoKyksIDEgZGVsZXRp b24oLSkKCmRpZmYgLS1naXQgYS9nY2MvZm9ydHJhbi90cmFucy1vcGVubXAuY2MgYi9nY2Mv Zm9ydHJhbi90cmFucy1vcGVubXAuY2MKaW5kZXggMjEwNTM2OTRmODEuLmI4MjI1NzI1OGE3 IDEwMDY0NAotLS0gYS9nY2MvZm9ydHJhbi90cmFucy1vcGVubXAuY2MKKysrIGIvZ2NjL2Zv cnRyYW4vdHJhbnMtb3Blbm1wLmNjCkBAIC00NTcwLDYgKzQ1NzAsMzEgQEAgZ2ZjX3RyYW5z X29hY2Nfd2FpdF9kaXJlY3RpdmUgKGdmY19jb2RlICpjb2RlKQogc3RhdGljIHRyZWUgZ2Zj X3RyYW5zX29tcF9zZWN0aW9ucyAoZ2ZjX2NvZGUgKiwgZ2ZjX29tcF9jbGF1c2VzICopOwog c3RhdGljIHRyZWUgZ2ZjX3RyYW5zX29tcF93b3Jrc2hhcmUgKGdmY19jb2RlICosIGdmY19v bXBfY2xhdXNlcyAqKTsKIAorc3RhdGljIHRyZWUKK2dmY190cmFuc19vbXBfYXNzdW1lIChn ZmNfY29kZSAqY29kZSkKK3sKKyAgc3RtdGJsb2NrX3QgYmxvY2s7CisgIGdmY19pbml0X2Js b2NrICgmYmxvY2spOworICBnZmNfb21wX2Fzc3VtcHRpb25zICphc3N1bWUgPSBjb2RlLT5l eHQub21wX2NsYXVzZXMtPmFzc3VtZTsKKyAgaWYgKGFzc3VtZSkKKyAgICBmb3IgKGdmY19l eHByX2xpc3QgKmVsID0gYXNzdW1lLT5ob2xkczsgZWw7IGVsID0gZWwtPm5leHQpCisgICAg ICB7CisJdHJlZSB0OworCWdmY19zZSBzZTsKKwlnZmNfaW5pdF9zZSAoJnNlLCBOVUxMKTsK KwlnZmNfY29udl9leHByICgmc2UsIGVsLT5leHByKTsKKwkvKiBBdm9pZCBzaWRlIGVmZmVj dHMuICovCisJaWYgKHNlLnByZS5oZWFkIHx8IHNlLnBvc3QuaGVhZCkKKwkgIGNvbnRpbnVl OworCXQgPSBidWlsZF9jYWxsX2V4cHJfaW50ZXJuYWxfbG9jIChnZmNfZ2V0X2xvY2F0aW9u ICgmZWwtPmV4cHItPndoZXJlKSwKKwkJCQkJICBJRk5fQVNTVU1FLCB2b2lkX3R5cGVfbm9k ZSwgMSwKKwkJCQkJICBzZS5leHByKTsKKwlnZmNfYWRkX2V4cHJfdG9fYmxvY2sgKCZibG9j aywgdCk7CisgICAgICB9CisgIGdmY19hZGRfZXhwcl90b19ibG9jayAoJmJsb2NrLCBnZmNf dHJhbnNfb21wX2NvZGUgKGNvZGUtPmJsb2NrLT5uZXh0LCB0cnVlKSk7CisgIHJldHVybiBn ZmNfZmluaXNoX2Jsb2NrICgmYmxvY2spOworfQorCiBzdGF0aWMgdHJlZQogZ2ZjX3RyYW5z X29tcF9hdG9taWMgKGdmY19jb2RlICpjb2RlKQogewpAQCAtNzQ4OCw3ICs3NTEzLDcgQEAg Z2ZjX3RyYW5zX29tcF9kaXJlY3RpdmUgKGdmY19jb2RlICpjb2RlKQogICBzd2l0Y2ggKGNv ZGUtPm9wKQogICAgIHsKICAgICBjYXNlIEVYRUNfT01QX0FTU1VNRToKLSAgICAgIHJldHVy biBnZmNfdHJhbnNfb21wX2NvZGUgKGNvZGUtPmJsb2NrLT5uZXh0LCB0cnVlKTsKKyAgICAg IHJldHVybiBnZmNfdHJhbnNfb21wX2Fzc3VtZSAoY29kZSk7CiAgICAgY2FzZSBFWEVDX09N UF9BVE9NSUM6CiAgICAgICByZXR1cm4gZ2ZjX3RyYW5zX29tcF9hdG9taWMgKGNvZGUpOwog ICAgIGNhc2UgRVhFQ19PTVBfQkFSUklFUjoKZGlmZiAtLWdpdCBhL2djYy90ZXN0c3VpdGUv Z2ZvcnRyYW4uZGcvZ29tcC9hc3N1bWUtMy5mOTAgYi9nY2MvdGVzdHN1aXRlL2dmb3J0cmFu LmRnL2dvbXAvYXNzdW1lLTMuZjkwCm5ldyBmaWxlIG1vZGUgMTAwNjQ0CmluZGV4IDAwMDAw MDAwMDAwLi5lNWRlYWNlMzA2ZQotLS0gL2Rldi9udWxsCisrKyBiL2djYy90ZXN0c3VpdGUv Z2ZvcnRyYW4uZGcvZ29tcC9hc3N1bWUtMy5mOTAKQEAgLTAsMCArMSw0NiBAQAorISB7IGRn LWRvIGNvbXBpbGUgfQorISB7IGRnLW9wdGlvbnMgIi1mb3Blbm1wIC1PMiAtZmR1bXAtdHJl ZS1vcHRpbWl6ZWQgLWZkdW1wLXRyZWUtb3JpZ2luYWwiIH0KKworISB7IGRnLWZpbmFsIHsg c2Nhbi10cmVlLWR1bXAtdGltZXMgIi5BU1NVTUUgXFwoeCA9PSA0MlxcKTsiIDEgIm9yaWdp bmFsIiB9IH0KKyEgeyBkZy1maW5hbCB7IHNjYW4tdHJlZS1kdW1wLXRpbWVzICIuQVNTVU1F IFxcKHggPD0gNDFcXCk7IiAxICJvcmlnaW5hbCIgfSB9CishIHsgZGctZmluYWwgeyBzY2Fu LXRyZWUtZHVtcC10aW1lcyAiLkFTU1VNRSBcXCh5IDw9IDZcXCk7IiAxICJvcmlnaW5hbCIg fSB9CishIHsgZGctZmluYWwgeyBzY2FuLXRyZWUtZHVtcC10aW1lcyAiLkFTU1VNRSBcXCh5 ID4gNVxcKTsiIDEgIm9yaWdpbmFsIiB9IH0KKworISB7IGRnLWZpbmFsIHsgc2Nhbi10cmVl LWR1bXAtdGltZXMgInJldHVybiA0MjsiIDMgIm9wdGltaXplZCIgfSB9CishIHsgZGctZmlu YWwgeyBzY2FuLXRyZWUtZHVtcC1ub3QgInJldHVybiAtMTsiICJvcHRpbWl6ZWQiIH0gfQor CitpbnRlZ2VyIGZ1bmN0aW9uIGZvbyAoeCkKKyAgaW1wbGljaXQgbm9uZQorICBpbnRlZ2Vy LCB2YWx1ZSA6OiB4CisgIGludGVnZXIgOjogeQorICAhJG9tcCBhc3N1bWUgaG9sZHMgKHgg PT0gNDIpCisgICAgeSA9IHg7CisgICEkb21wIGVuZCBhc3N1bWUKKyAgZm9vID0geQorZW5k CisKK2ludGVnZXIgZnVuY3Rpb24gYmFyICh4KQorICBpbXBsaWNpdCBub25lCisgIGludGVn ZXIsIHZhbHVlIDo6IHgKKyAgISRvbXAgYXNzdW1lIGhvbGRzICh4IDwgNDIpCisgIGJsb2Nr CisgIGVuZCBibG9jaworICBpZiAoeCA9PSA0MikgdGhlbgorICAgIGJhciA9IC0xCisgICAg cmV0dXJuCisgIGVuZCBpZgorICBiYXIgPSA0MgorZW5kCisKK2ludGVnZXIgZnVuY3Rpb24g Zm9vYmFyICh5KQorICBpbXBsaWNpdCBub25lCisgIGludGVnZXIsIHZhbHVlIDo6IHkKKyAg ISRvbXAgYXNzdW1lIGhvbGRzKHkgPiA1KSBob2xkcyAoeSA8IDcpCisgIGJsb2NrCisgICAg aWYgKHkgPT0gNikgdGhlbgorICAgICAgZm9vYmFyID0gNDIKKyAgICAgIHJldHVybgorICAg IGVuZCBpZgorICBlbmQgYmxvY2sKKyAgZm9vYmFyID0gLTEKK2VuZAo= --------------TqoEKoh9kP3DeFCR9tkLQ2ZR--