From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from esa3.mentor.iphmx.com (esa3.mentor.iphmx.com [68.232.137.180]) by sourceware.org (Postfix) with ESMTPS id 9390D38515D1; Fri, 3 Jun 2022 13:38:22 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.1 sourceware.org 9390D38515D1 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.91,274,1647331200"; d="diff'?scan'208";a="76638216" Received: from orw-gwy-01-in.mentorg.com ([192.94.38.165]) by esa3.mentor.iphmx.com with ESMTP; 03 Jun 2022 05:38:20 -0800 IronPort-SDR: Jz8DepMBtIdQa08hAXa1eps6cXOTDk03tFUKCoC+yt3TUonqq+byC7331637f1l+xh9RUBrvJ+ 5ZKNrnR5f8tD5jKdz+DTH3crYpIQKF/nxndsLgpMcac2OJmStVuroJofxqWp/AS31w9c1GlCrH 4HPXlKuzd63dqwlYraUAs/7vvRunw75XkfwMhfBWZvSpRVaukw4GIjFRs+ePwkHExFmdOsmAwJ Oz23J9K2Gye3ubpfGAG7VhVk4ndCYBHF6HJ+8ao2zmKjDwt0CGRRrWN+2Rf+n5E0Q8x+sBmAKw kZM= Content-Type: multipart/mixed; boundary="------------kX1XHc0L25BB2hv0hP1OdElQ" Message-ID: Date: Fri, 3 Jun 2022 15:37:56 +0200 MIME-Version: 1.0 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:91.0) Gecko/20100101 Thunderbird/91.10.0 Content-Language: en-US To: gcc-patches , fortran , Jakub Jelinek From: Tobias Burnus Subject: [Patch] OpenMP/Fortran: Add support for firstprivate and allocate clauses on scope construct X-Originating-IP: [137.202.0.90] X-ClientProxiedBy: SVR-IES-MBX-08.mgc.mentorg.com (139.181.222.8) 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, KAM_SHORT, SPF_HELO_PASS, SPF_PASS, TXREP, T_SCC_BODY_TEXT_LINE autolearn=ham autolearn_force=no version=3.4.6 X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on server2.sourceware.org X-BeenThere: fortran@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Fortran mailing list List-Unsubscribe: , List-Archive: List-Help: List-Subscribe: , X-List-Received-Date: Fri, 03 Jun 2022 13:38:24 -0000 --------------kX1XHc0L25BB2hv0hP1OdElQ Content-Type: text/plain; charset="UTF-8"; format=flowed Content-Transfer-Encoding: quoted-printable Simple patch. Testcases based on the C/C++ commit. For allocate, I found an unrelated bug which prevented me from adding the associated testcase: https://gcc.gnu.org/PR105836 Tested on x86-64 (w/o offloading). 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 --------------kX1XHc0L25BB2hv0hP1OdElQ Content-Type: text/x-patch; charset="UTF-8"; name="omp-scope-fortran2.diff" Content-Disposition: attachment; filename="omp-scope-fortran2.diff" Content-Transfer-Encoding: base64 T3Blbk1QL0ZvcnRyYW46IEFkZCBzdXBwb3J0IGZvciBmaXJzdHByaXZhdGUgYW5kIGFsbG9j YXRlIGNsYXVzZXMgb24gc2NvcGUgY29uc3RydWN0CgpGb3J0cmFuIGNvbW1pdCB0byBDL0Mr Ky9iYWNrZW5kIGNvbW1pdApyMTMtODYyLWdmMzhiMjBkNjhmYWRlNWE5MjJiOWY2OGM0YzM4 NDFlNjUzZDFiODNjCgpnY2MvZm9ydHJhbi9DaGFuZ2VMb2c6CgoJKiBvcGVubXAuY2MgKE9N UF9TQ09QRV9DTEFVU0VTKTogQWRkIGZpcnN0cHJpdmF0ZSBhbmQgYWxsb2NhdGUuCgpsaWJn b21wL0NoYW5nZUxvZzoKCgkqIGxpYmdvbXAudGV4aSAoT3Blbk1QIDUuMik6IE1hcmsgc2Nv cGUgdy8gZmlyc3Rwcml2YXRlL2FsbG9jYXRlIGFzIFkuCgkqIHRlc3RzdWl0ZS9saWJnb21w LmZvcnRyYW4vc2NvcGUtMi5mOTA6IE5ldyB0ZXN0LgoKZ2NjL3Rlc3RzdWl0ZS9DaGFuZ2VM b2c6CgoJKiBnZm9ydHJhbi5kZy9nb21wL3Njb3BlLTUuZjkwOiBOZXcgdGVzdC4KCSogZ2Zv cnRyYW4uZGcvZ29tcC9zY29wZS02LmY5MDogTmV3IHRlc3QuCgogZ2NjL2ZvcnRyYW4vb3Bl bm1wLmNjICAgICAgICAgICAgICAgICAgICAgICAgIHwgIDMgKy0KIGdjYy90ZXN0c3VpdGUv Z2ZvcnRyYW4uZGcvZ29tcC9zY29wZS01LmY5MCAgICB8ICA5ICsrKysrCiBnY2MvdGVzdHN1 aXRlL2dmb3J0cmFuLmRnL2dvbXAvc2NvcGUtNi5mOTAgICAgfCAyMyArKysrKysrKysrKwog bGliZ29tcC9saWJnb21wLnRleGkgICAgICAgICAgICAgICAgICAgICAgICAgIHwgIDIgKy0K IGxpYmdvbXAvdGVzdHN1aXRlL2xpYmdvbXAuZm9ydHJhbi9zY29wZS0yLmY5MCB8IDU3ICsr KysrKysrKysrKysrKysrKysrKysrKysrKwogNSBmaWxlcyBjaGFuZ2VkLCA5MiBpbnNlcnRp b25zKCspLCAyIGRlbGV0aW9ucygtKQoKZGlmZiAtLWdpdCBhL2djYy9mb3J0cmFuL29wZW5t cC5jYyBiL2djYy9mb3J0cmFuL29wZW5tcC5jYwppbmRleCBhMWFhODhjNWQ3NC4uZDEyY2Vj NDNkNjQgMTAwNjQ0Ci0tLSBhL2djYy9mb3J0cmFuL29wZW5tcC5jYworKysgYi9nY2MvZm9y dHJhbi9vcGVubXAuY2MKQEAgLTM2ODIsNyArMzY4Miw4IEBAIGNsZWFudXA6CiAgICB8IE9N UF9DTEFVU0VfUFJJVkFURSB8IE9NUF9DTEFVU0VfTEFTVFBSSVZBVEUgfCBPTVBfQ0xBVVNF X1JFRFVDVElPTikKIAogI2RlZmluZSBPTVBfU0NPUEVfQ0xBVVNFUyBcCi0gIChvbXBfbWFz ayAoT01QX0NMQVVTRV9QUklWQVRFKSB8IE9NUF9DTEFVU0VfUkVEVUNUSU9OKQorICAob21w X21hc2sgKE9NUF9DTEFVU0VfUFJJVkFURSkgfE9NUF9DTEFVU0VfRklSU1RQUklWQVRFCQlc CisgICB8IE9NUF9DTEFVU0VfUkVEVUNUSU9OIHwgT01QX0NMQVVTRV9BTExPQ0FURSkKICNk ZWZpbmUgT01QX1NFQ1RJT05TX0NMQVVTRVMgXAogICAob21wX21hc2sgKE9NUF9DTEFVU0Vf UFJJVkFURSkgfCBPTVBfQ0xBVVNFX0ZJUlNUUFJJVkFURQkJXAogICAgfCBPTVBfQ0xBVVNF X0xBU1RQUklWQVRFIHwgT01QX0NMQVVTRV9SRURVQ1RJT04gfCBPTVBfQ0xBVVNFX0FMTE9D QVRFKQpkaWZmIC0tZ2l0IGEvZ2NjL3Rlc3RzdWl0ZS9nZm9ydHJhbi5kZy9nb21wL3Njb3Bl LTUuZjkwIGIvZ2NjL3Rlc3RzdWl0ZS9nZm9ydHJhbi5kZy9nb21wL3Njb3BlLTUuZjkwCm5l dyBmaWxlIG1vZGUgMTAwNjQ0CmluZGV4IDAwMDAwMDAwMDAwLi5iYWRkYWU1MWI0MgotLS0g L2Rldi9udWxsCisrKyBiL2djYy90ZXN0c3VpdGUvZ2ZvcnRyYW4uZGcvZ29tcC9zY29wZS01 LmY5MApAQCAtMCwwICsxLDkgQEAKKyEgeyBkZy1kbyBjb21waWxlIH0KKworc3Vicm91dGlu ZSBmb28gKCkKKyAgaW50ZWdlciBmCisgIGYgPSAwOworICAhJG9tcCBzY29wZSBmaXJzdHBy aXZhdGUoZikJISB7IGRnLWVycm9yICJmaXJzdHByaXZhdGUgdmFyaWFibGUgJ2YnIGlzIHBy aXZhdGUgaW4gb3V0ZXIgY29udGV4dCIgfQorICAgIGYgPSBmICsgMQorICAhJG9tcCBlbmQg c2NvcGUKK2VuZApkaWZmIC0tZ2l0IGEvZ2NjL3Rlc3RzdWl0ZS9nZm9ydHJhbi5kZy9nb21w L3Njb3BlLTYuZjkwIGIvZ2NjL3Rlc3RzdWl0ZS9nZm9ydHJhbi5kZy9nb21wL3Njb3BlLTYu ZjkwCm5ldyBmaWxlIG1vZGUgMTAwNjQ0CmluZGV4IDAwMDAwMDAwMDAwLi45YzU5NWIxZTEx NwotLS0gL2Rldi9udWxsCisrKyBiL2djYy90ZXN0c3VpdGUvZ2ZvcnRyYW4uZGcvZ29tcC9z Y29wZS02LmY5MApAQCAtMCwwICsxLDIzIEBACishIHsgZGctYWRkaXRpb25hbC1vcHRpb25z ICItZmR1bXAtdHJlZS1vcmlnaW5hbCIgfQorCittb2R1bGUgbQorICB1c2UgaXNvX2NfYmlu ZGluZworICAhdXNlIG9tcF9saWIsIG9ubHk6IG9tcF9hbGxvY2F0b3JfaGFuZGxlX2tpbmQK KyAgaW1wbGljaXQgbm9uZQorICBpbnRlZ2VyLCBwYXJhbWV0ZXIgOjogb21wX2FsbG9jYXRv cl9oYW5kbGVfa2luZCA9IGNfaW50cHRyX3QKKyAgaW50ZWdlciA6OiBhID0gMCwgYiA9IDQy LCBjID0gMAorCitjb250YWlucworICBzdWJyb3V0aW5lIGZvbyAoaCkKKyAgaW50ZWdlcihv bXBfYWxsb2NhdG9yX2hhbmRsZV9raW5kKSwgdmFsdWUgOjogaCAKKyAgISRvbXAgc2NvcGUg cHJpdmF0ZSAoYSkgZmlyc3Rwcml2YXRlIChiKSByZWR1Y3Rpb24gKCs6IGMpIGFsbG9jYXRl ICggaCA6IGEgLCBiICwgYykKKyAgICBpZiAoYiAvPSA0MikgJgorICAgICAgZXJyb3Igc3Rv cAorICAgIGEgPSAzNgorICAgIGIgPSAxNQorICAgIGMgPSBjICsgMQorICAhJG9tcCBlbmQg c2NvcGUKKyAgZW5kCitlbmQKKworISB7IGRnLWZpbmFsIHsgc2Nhbi10cmVlLWR1bXAgIm9t cCBzY29wZSBwcml2YXRlXFwoYVxcKSBmaXJzdHByaXZhdGVcXChiXFwpIHJlZHVjdGlvblxc KFxcKzpjXFwpIGFsbG9jYXRlXFwoYWxsb2NhdG9yXFwoRFxcLlxbMC05XF0rXFwpOmEpIGFs bG9jYXRlXFwoYWxsb2NhdG9yXFwoRFxcLlxbMC05XF0rXFwpOmIpIGFsbG9jYXRlXFwoYWxs b2NhdG9yXFwoRFxcLlxbMC05XF0rXFwpOmMpIiAib3JpZ2luYWwiIH0gfQpkaWZmIC0tZ2l0 IGEvbGliZ29tcC9saWJnb21wLnRleGkgYi9saWJnb21wL2xpYmdvbXAudGV4aQppbmRleCBm ZjAyY2NkNDk2OS4uMTE2MTNiZjc1OTkgMTAwNjQ0Ci0tLSBhL2xpYmdvbXAvbGliZ29tcC50 ZXhpCisrKyBiL2xpYmdvbXAvbGliZ29tcC50ZXhpCkBAIC0zODYsNyArMzg2LDcgQEAgVGhl IE9wZW5NUCA0LjUgc3BlY2lmaWNhdGlvbiBpcyBmdWxseSBzdXBwb3J0ZWQuCiBAaXRlbSBE ZXByZWNhdGlvbiBvZiBkZWxpbWl0ZWQgZm9ybSBvZiBAY29kZXtkZWNsYXJlIHRhcmdldH0g QHRhYiBOIEB0YWIKIEBpdGVtIFJlcHJvZHVjaWJsZSBzZW1hbnRpY3MgY2hhbmdlZCBmb3Ig QGNvZGV7b3JkZXIoY29uY3VycmVudCl9IEB0YWIgTiBAdGFiCiBAaXRlbSBAY29kZXthbGxv Y2F0ZX0gYW5kIEBjb2Rle2ZpcnN0cHJpdmF0ZX0gY2xhdXNlcyBvbiBAY29kZXtzY29wZX0K LSAgICAgIEB0YWIgTiBAdGFiCisgICAgICBAdGFiIFkgQHRhYgogQGl0ZW0gQGNvZGV7b21w dF9jYWxsYmFja193b3JrfSBAdGFiIE4gQHRhYgogQGl0ZW0gRGVmYXVsdCBtYXAtdHlwZSBm b3IgQGNvZGV7bWFwfSBjbGF1c2UgaW4gQGNvZGV7dGFyZ2V0IGVudGVyL2V4aXQgZGF0YX0K ICAgICAgIEB0YWIgTiBAdGFiCmRpZmYgLS1naXQgYS9saWJnb21wL3Rlc3RzdWl0ZS9saWJn b21wLmZvcnRyYW4vc2NvcGUtMi5mOTAgYi9saWJnb21wL3Rlc3RzdWl0ZS9saWJnb21wLmZv cnRyYW4vc2NvcGUtMi5mOTAKbmV3IGZpbGUgbW9kZSAxMDA2NDQKaW5kZXggMDAwMDAwMDAw MDAuLmYyZTE1OTM0MDNlCi0tLSAvZGV2L251bGwKKysrIGIvbGliZ29tcC90ZXN0c3VpdGUv bGliZ29tcC5mb3J0cmFuL3Njb3BlLTIuZjkwCkBAIC0wLDAgKzEsNTcgQEAKK3Byb2dyYW0g bWFpbgorICBpbXBsaWNpdCBub25lCisgIGludGVnZXIgYSgwOjYzKQorICBpbnRlZ2VyIHIs IHIyLCBpLCBuCisgIGEgPSAwCisgIHIgPSAwCisgIHIyID0gMAorICBuID0gNjQKKyAgISRv bXAgcGFyYWxsZWwKKyAgICAhJG9tcCBzY29wZQorICAgICAhJG9tcCBzY29wZSBmaXJzdHBy aXZhdGUgKG4pCisgICAgICAhJG9tcCBkbworICAgICAgZG8gaSA9IDAsIDYzCisgICAgICAg YShpKSA9IGEoaSkgKyAxCisgICAgICBlbmQgZG8KKyAgICAgISRvbXAgZW5kIHNjb3BlIG5v d2FpdAorICAgICEkb21wIGVuZCBzY29wZSBub3dhaXQKKworICAgICEkb21wIHNjb3BlIHJl ZHVjdGlvbigrOiByKSBmaXJzdHByaXZhdGUgKG4pCisgICAgICAhJG9tcCBkbworICAgICAg ZG8gaSA9IDAsIDYzCisgICAgICAgIHIgPSByICsgaQorICAgICAgICBpZiAoYShpKSAvPSAx KSAmCisgICAgICAgICAgZXJyb3Igc3RvcAorICAgICAgZW5kIGRvCisgICAgICAhJG9tcCBl bmQgZG8gbm93YWl0CisgICAgICAhJG9tcCBiYXJyaWVyCisgICAgICBpZiAobiAvPSA2NCkg dGhlbgorICAgICAgICBlcnJvciBzdG9wCisgICAgICBlbHNlCisgICAgICAgIG4gPSAxMjgK KyAgICAgIGVuZCBpZgorICAgICEkb21wIGVuZCBzY29wZSBub3dhaXQKKworICAgICEkb21w IGJhcnJpZXIKKyAgICBpZiAociAvPSA2NCAqIDYzIC8gMikgJgorICAgICAgZXJyb3Igc3Rv cAorICAgICEkb21wIHNjb3BlIHByaXZhdGUgKGkpCisgICAgICEkb21wIHNjb3BlIHJlZHVj dGlvbigrOiByMikKKyAgICAgICEkb21wIGRvCisgICAgICBkbyBpID0gMCwgNjMKKyAgICAg ICAgICByMiA9IHIyICsgMiAqIGkKKyAgICAgICAgICBhKGkpID0gYShpKSArIGkKKyAgICAg IGVuZCBkbworICAgICAgISRvbXAgZW5kIGRvIG5vd2FpdAorICAgICAhJG9tcCBlbmQgc2Nv cGUKKyAgICAhJG9tcCBlbmQgc2NvcGUgbm93YWl0CisgICAgaWYgKHIyIC89IDY0ICogNjMp ICYKKyAgICAgIGVycm9yIHN0b3AKKyAgICAhJG9tcCBkbworICAgIGRvIGkgPSAwLCA2Mwor ICAgICAgaWYgKGEoaSkgLz0gaSArIDEpICYKKyAgICAgICAgZXJyb3Igc3RvcAorICAgIGVu ZCBkbworICAgICEkb21wIGVuZCBkbyBub3dhaXQKKyAgISRvbXAgZW5kIHBhcmFsbGVsCitl bmQgcHJvZ3JhbQo= --------------kX1XHc0L25BB2hv0hP1OdElQ--