Patch Detail
get:
Show a patch.
patch:
Update a patch.
put:
Update a patch.
GET /api/patches/2196314/?format=api
{ "id": 2196314, "url": "http://patchwork.ozlabs.org/api/patches/2196314/?format=api", "web_url": "http://patchwork.ozlabs.org/project/gcc/patch/254e937f-02e0-4c37-9413-a10b0cd47dc2@baylibre.com/", "project": { "id": 17, "url": "http://patchwork.ozlabs.org/api/projects/17/?format=api", "name": "GNU Compiler Collection", "link_name": "gcc", "list_id": "gcc-patches.gcc.gnu.org", "list_email": "gcc-patches@gcc.gnu.org", "web_url": null, "scm_url": null, "webscm_url": null, "list_archive_url": "", "list_archive_url_format": "", "commit_url_format": "" }, "msgid": "<254e937f-02e0-4c37-9413-a10b0cd47dc2@baylibre.com>", "list_archive_url": null, "date": "2026-02-13T11:35:44", "name": "[committed] Fix gcc/testsuite/*/gomp/pr113436* [PR113436] (was: [committed] [OG15] openmp: Allocate memory for private/firstprivate clauses as, directed by allocate clauses in target constructs [PR113436])", "commit_ref": null, "pull_url": null, "state": "new", "archived": false, "hash": "60ba12eaecd0b7421fafd460de0726a28046406a", "submitter": { "id": 87873, "url": "http://patchwork.ozlabs.org/api/people/87873/?format=api", "name": "Tobias Burnus", "email": "tburnus@baylibre.com" }, "delegate": null, "mbox": "http://patchwork.ozlabs.org/project/gcc/patch/254e937f-02e0-4c37-9413-a10b0cd47dc2@baylibre.com/mbox/", "series": [ { "id": 492085, "url": "http://patchwork.ozlabs.org/api/series/492085/?format=api", "web_url": "http://patchwork.ozlabs.org/project/gcc/list/?series=492085", "date": "2026-02-13T11:35:44", "name": "[committed] Fix gcc/testsuite/*/gomp/pr113436* [PR113436] (was: [committed] [OG15] openmp: Allocate memory for private/firstprivate clauses as, directed by allocate clauses in target constructs [PR113436])", "version": 1, "mbox": "http://patchwork.ozlabs.org/series/492085/mbox/" } ], "comments": "http://patchwork.ozlabs.org/api/patches/2196314/comments/", "check": "pending", "checks": "http://patchwork.ozlabs.org/api/patches/2196314/checks/", "tags": {}, "related": [], "headers": { "Return-Path": "<gcc-patches-bounces~incoming=patchwork.ozlabs.org@gcc.gnu.org>", "X-Original-To": [ "incoming@patchwork.ozlabs.org", "gcc-patches@gcc.gnu.org" ], "Delivered-To": [ "patchwork-incoming@legolas.ozlabs.org", "gcc-patches@gcc.gnu.org" ], "Authentication-Results": [ "legolas.ozlabs.org;\n\tdkim=pass (2048-bit key;\n unprotected) header.d=baylibre-com.20230601.gappssmtp.com\n header.i=@baylibre-com.20230601.gappssmtp.com header.a=rsa-sha256\n header.s=20230601 header.b=tIOQnx0r;\n\tdkim-atps=neutral", "legolas.ozlabs.org;\n spf=pass (sender SPF authorized) smtp.mailfrom=gcc.gnu.org\n (client-ip=2620:52:6:3111::32; helo=vm01.sourceware.org;\n envelope-from=gcc-patches-bounces~incoming=patchwork.ozlabs.org@gcc.gnu.org;\n receiver=patchwork.ozlabs.org)", "sourceware.org;\n\tdkim=pass (2048-bit key,\n unprotected) header.d=baylibre-com.20230601.gappssmtp.com\n header.i=@baylibre-com.20230601.gappssmtp.com header.a=rsa-sha256\n header.s=20230601 header.b=tIOQnx0r", "sourceware.org;\n dmarc=none (p=none dis=none) header.from=baylibre.com", "sourceware.org; spf=pass smtp.mailfrom=baylibre.com", "server2.sourceware.org;\n arc=none smtp.remote-ip=209.85.128.51" ], "Received": [ "from vm01.sourceware.org (vm01.sourceware.org\n [IPv6:2620:52:6:3111::32])\n\t(using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)\n\t key-exchange x25519 server-signature ECDSA (secp384r1) server-digest SHA384)\n\t(No client certificate requested)\n\tby legolas.ozlabs.org (Postfix) with ESMTPS id 4fC99P4ZyCz1xpl\n\tfor <incoming@patchwork.ozlabs.org>; Fri, 13 Feb 2026 22:36:25 +1100 (AEDT)", "from vm01.sourceware.org (localhost [127.0.0.1])\n\tby sourceware.org (Postfix) with ESMTP id 57A334BAD14C\n\tfor <incoming@patchwork.ozlabs.org>; Fri, 13 Feb 2026 11:36:23 +0000 (GMT)", "from mail-wm1-f51.google.com (mail-wm1-f51.google.com\n [209.85.128.51])\n by sourceware.org (Postfix) with ESMTPS id C3E554BAD160\n for <gcc-patches@gcc.gnu.org>; Fri, 13 Feb 2026 11:35:46 +0000 (GMT)", "by mail-wm1-f51.google.com with SMTP id\n 5b1f17b1804b1-48334ee0aeaso6068025e9.1\n for <gcc-patches@gcc.gnu.org>; Fri, 13 Feb 2026 03:35:46 -0800 (PST)", "from ?IPV6:2001:16b8:26ef:aa00:e209:9263:d4a3:8d4e?\n (200116b826efaa00e2099263d4a38d4e.dip.versatel-1u1.de.\n [2001:16b8:26ef:aa00:e209:9263:d4a3:8d4e])\n by smtp.gmail.com with ESMTPSA id\n 5b1f17b1804b1-4835dcfafcdsm318596505e9.9.2026.02.13.03.35.44\n (version=TLS1_3 cipher=TLS_AES_128_GCM_SHA256 bits=128/128);\n Fri, 13 Feb 2026 03:35:45 -0800 (PST)" ], "DKIM-Filter": [ "OpenDKIM Filter v2.11.0 sourceware.org 57A334BAD14C", "OpenDKIM Filter v2.11.0 sourceware.org C3E554BAD160" ], "DMARC-Filter": "OpenDMARC Filter v1.4.2 sourceware.org C3E554BAD160", "ARC-Filter": "OpenARC Filter v1.0.0 sourceware.org C3E554BAD160", "ARC-Seal": "i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1770982547; cv=none;\n b=czwYSK0BUifAUOtzUFpV9Lsu7uOsbyq//CVA+c6YZnT5oayaWkWzBbE16nbV1cU3HInD9m5qm5rfAOzLVXOO2bbIv21oGe3nUgOr8bYWnVv7wxZeD3huBmzkisZKXKXqmw7NH0x5wJeejZH5e9+wHNUH3yQNX4v7eeTjQpLbVzk=", "ARC-Message-Signature": "i=1; a=rsa-sha256; d=sourceware.org; s=key;\n t=1770982547; c=relaxed/simple;\n bh=tIP2V+ZTsZZFj9gcHLEG1S4zG4v1b5R0Ujqyr1LSdik=;\n h=DKIM-Signature:Message-ID:Date:MIME-Version:Subject:To:From;\n b=h1WSaFQIHqhagb4gmhDq7hK/nKU2UaKz6vbdMMu/9PtEEmfA1HBn2bTLV8MQu93affYzO5fy42SnGqy4uURy79oaknhmsSuS2XKr4ZtdBwr8Qro9sQ3DzaKocVLOtkQeg58uJBoyLYSegjhkVx6PVVdNA8xmeg53GWflUDoPF+I=", "ARC-Authentication-Results": "i=1; server2.sourceware.org", "DKIM-Signature": "v=1; a=rsa-sha256; c=relaxed/relaxed;\n d=baylibre-com.20230601.gappssmtp.com; s=20230601; t=1770982546;\n x=1771587346;\n darn=gcc.gnu.org;\n h=in-reply-to:from:content-language:references:to:subject:user-agent\n :mime-version:date:message-id:from:to:cc:subject:date:message-id\n :reply-to; bh=Y+SqTYSkkpoTovpnb9Jb4yB39GHlPI9pPkczRWWUdOg=;\n b=tIOQnx0rFLgps9h7NyTZAPaaltl3k6r0cjyXbbNx6OO2wsIlFuPvVaYvf4zUfylv0u\n PsWh/1aAjy9ieio98iKyni9iCeEYPHp3ng2t1sidUpi9iV/cxWe6VidTXCiqOxWGEOlV\n QZYFZT0mmZdFh8f/3iNhV+rC7mgwBAEsdE0lMUZdI/pUuZxzxz67dnbHqJZye/9ZkuOj\n tzPje6Q61gcpyRv9cl1jQgJkbNxrFz4NXIHdjlXmhvP2tY2rSfTkEuGxkmwbEi65nLjL\n xiX3pyGRUvuE02eIpsfs0t4BnBJrZRKIpzK6ekc+9mJDYG+0NKD9gF6utJL1s9lYpnqh\n t0Dg==", "X-Google-DKIM-Signature": "v=1; a=rsa-sha256; c=relaxed/relaxed;\n d=1e100.net; s=20230601; t=1770982546; x=1771587346;\n h=in-reply-to:from:content-language:references:to:subject:user-agent\n :mime-version:date:message-id:x-gm-gg:x-gm-message-state:from:to:cc\n :subject:date:message-id:reply-to;\n bh=Y+SqTYSkkpoTovpnb9Jb4yB39GHlPI9pPkczRWWUdOg=;\n b=iEkJJy2ZKJcSrrc6CS75qO+E3IHkLFVEyzpir0FwGOxB5p6zwPTDsFmYwPsue2u4Cu\n Qsp7VilPYeCJNn+k1uXJISodvG0Eg3gQtd7ic9k7CsWzSyHAOKgYYectjwCmTQw2E9z4\n DEl2NnFV2eU+QCUmyN7TCkilVAcu2cNu4oqdEKUHCmtCHTY46tLaY8VhhlUPdt7DiaAD\n h8mKHRFLEA7iQ49eRZ3H2I8YcrTMM/18iBQ+Lg5Qf1G0S4oOaappFDjYh1RAKdJjLpS+\n hJNKyl7JuWgA1mRL1w6V5l56ubk6gRKP6/H4kGK1h+NhsqtIa4z4aHvT0S3kSpntsYU2\n pVZg==", "X-Forwarded-Encrypted": "i=1;\n AJvYcCVr39ii/yQoI7ehvGZ+GQNVwaPszHK52lsjox2YMJFRZOrDTJNt/ui5mQGQli3zzRRzuxdV5AVibQbMbg==@gcc.gnu.org", "X-Gm-Message-State": "AOJu0YxTaV4p2FvAPt5tRWqlgru97CrBLz2MXUUhwKznXVEfaZNABEP8\n OmdyPWVH10ZTWUyN3/qUuXtv7uO2oe6QvKCfV34Xeg215OjefBqLdLVrZoHX2N1AqYM=", "X-Gm-Gg": "AZuq6aKUcnl0yJDpuB+3nYr5puENonjKcIISpx3OWfWk5iH1QlNfUw14ziIMtAwCsxa\n Oynn3sHUDa6f5wto44LSs4bwP4QIi0paoTpCkkW+m02s82JGAiSE3d9qFwY8B11YfGZZF3RjF50\n YeuVL4r8AwjSDekJw4hd9kPu8GVZxd1esiEn2SFaJ9n1Zbp5j0dOJBWzl7fX+xa3ex+4BvXqmlS\n OSCcTjB5bF5pfeeWRRSCIusAnlY578CFNQfOjQTARum+kpeP7XR/kZMC91zxEx3WBrcSLGL6DSO\n 6vgDUpy4Yu6E9nZ6/kSL1evBkPbbCDjlq3dxzCF0Pd6489BrQC+WgVV8prj/ELCB7YglNm+XH4U\n Gn5MrP7Ey8HfvYJliSCec0AEmMJ4rzo6GCPezDk6ODgNn36Ohr3CrE4JbiNIrIt/pKMpB+HkKRg\n JJfFgkm8EQfSS6oZJNtbkRe8j/Ut+vQKdgVW6QwzxoVh36O2IdilIq0E6yDkHOdchMBI47lpSJs\n go/Zra7StL29fgwdX+hkDHh9YhIo2RhhXWH2xbAbgCNPkrpgJ0X4YHR7multtSt", "X-Received": "by 2002:a05:600c:1e1d:b0:477:abea:9028 with SMTP id\n 5b1f17b1804b1-48373a15f26mr22255885e9.6.1770982545482;\n Fri, 13 Feb 2026 03:35:45 -0800 (PST)", "Content-Type": "multipart/mixed; boundary=\"------------I4wUKfhtk8xTB6lnjZkCEXvc\"", "Message-ID": "<254e937f-02e0-4c37-9413-a10b0cd47dc2@baylibre.com>", "Date": "Fri, 13 Feb 2026 12:35:44 +0100", "MIME-Version": "1.0", "User-Agent": "Mozilla Thunderbird", "Subject": "[committed] Fix gcc/testsuite/*/gomp/pr113436* [PR113436] (was:\n [committed] [OG15] openmp: Allocate memory for private/firstprivate clauses\n as, directed by allocate clauses in target constructs [PR113436])", "To": "Kwok Cheung Yeung <kcyeung@baylibre.com>,\n gcc-patches <gcc-patches@gcc.gnu.org>", "References": "<421f7c6c-35ca-4d70-a1d0-b8d43407a2ea@baylibre.com>\n <458e0f7a-58d9-4f81-bb15-0c2eba89864c@baylibre.com>\n <ec4aa407-051d-447d-b964-141ad9d97a64@baylibre.com>\n <6a9c8d6f-e76d-479a-b715-32da5b075caa@baylibre.com>\n <b26d8341-a8d2-450a-8454-8454a984d769@baylibre.com>\n <cb0d7aba-3fa9-48ab-a881-2941d7328217@baylibre.com>\n <5f13ed87-5fa0-4410-952e-83efee0b11c7@baylibre.com>\n <5b3c5d26-da44-4c37-adb7-2c543b5ce12d@baylibre.com>\n <d81cb30e-5937-436c-a494-8f15332933b3@baylibre.com>", "Content-Language": "en-US", "From": "Tobias Burnus <tburnus@baylibre.com>", "In-Reply-To": "<d81cb30e-5937-436c-a494-8f15332933b3@baylibre.com>", "X-BeenThere": "gcc-patches@gcc.gnu.org", "X-Mailman-Version": "2.1.30", "Precedence": "list", "List-Id": "Gcc-patches mailing list <gcc-patches.gcc.gnu.org>", "List-Unsubscribe": "<https://gcc.gnu.org/mailman/options/gcc-patches>,\n <mailto:gcc-patches-request@gcc.gnu.org?subject=unsubscribe>", "List-Archive": "<https://gcc.gnu.org/pipermail/gcc-patches/>", "List-Post": "<mailto:gcc-patches@gcc.gnu.org>", "List-Help": "<mailto:gcc-patches-request@gcc.gnu.org?subject=help>", "List-Subscribe": "<https://gcc.gnu.org/mailman/listinfo/gcc-patches>,\n <mailto:gcc-patches-request@gcc.gnu.org?subject=subscribe>", "Errors-To": "gcc-patches-bounces~incoming=patchwork.ozlabs.org@gcc.gnu.org" }, "content": "Kwok Cheung Yeung wrote:\n> This patch has been committed to mainline and also backported to the \n> devel/omp/gcc-15 branch as commit \n> 64a5a58901e0a5829da1452254a7934afcd67faa. \n\nThe testcases in gcc/testsuite/ had the rather common problem\nof assuming that omp.h and omp_lib are available. However, those\ncan only be used in libgomp/testsuite/.\n\n[Depending on how one tests, this is hidden by them getting picked up\nfrom elsewhere.]\n\nSorry for the breakage and missing it during the review.\nFixed by commit r16-7498-geb311dc3db842d (as attached).\n\nTobias", "diff": "commit eb311dc3db842d5e2bd4215184a01099e0f26d6c\nAuthor: Tobias Burnus <tburnus@baylibre.com>\nDate: Fri Feb 13 12:29:03 2026 +0100\n\n Fix gcc/testsuite/*/gomp/pr113436* [PR113436]\n \n Testcases in gcc/testsuite/ may not '#include <omp.h>' or 'use omp_lib';\n instead, now a local declaration of the enum/Fortran-parameter values is\n used.\n \n gcc/testsuite/ChangeLog:\n \n PR middle-end/113436\n * c-c++-common/gomp/pr113436-1.c: Replace '#include <omp.h>' by\n local declaration for omp_allocator_handle_t.\n * c-c++-common/gomp/pr113436-2.c: Likewise.\n * g++.dg/gomp/pr113436.C: Likewise.\n * gfortran.dg/gomp/pr113436-1.f90: Replace 'use omp_lib' by local\n omp_*_mem_alloc parameter declarations.\n * gfortran.dg/gomp/pr113436-2.f90: Likewise.\n * gfortran.dg/gomp/pr113436-3.f90: Likewise.\n * gfortran.dg/gomp/pr113436-4.f90: Likewise.\n---\n gcc/testsuite/c-c++-common/gomp/pr113436-1.c | 26 +++++++++++++++++++++++++-\n gcc/testsuite/c-c++-common/gomp/pr113436-2.c | 26 +++++++++++++++++++++++++-\n gcc/testsuite/g++.dg/gomp/pr113436.C | 26 +++++++++++++++++++++++++-\n gcc/testsuite/gfortran.dg/gomp/pr113436-1.f90 | 27 ++++++++++++++++++++++++++-\n gcc/testsuite/gfortran.dg/gomp/pr113436-2.f90 | 26 +++++++++++++++++++++++++-\n gcc/testsuite/gfortran.dg/gomp/pr113436-3.f90 | 26 +++++++++++++++++++++++++-\n gcc/testsuite/gfortran.dg/gomp/pr113436-4.f90 | 26 +++++++++++++++++++++++++-\n 7 files changed, 176 insertions(+), 7 deletions(-)\n\ndiff --git a/gcc/testsuite/c-c++-common/gomp/pr113436-1.c b/gcc/testsuite/c-c++-common/gomp/pr113436-1.c\nindex 985cc212863..db9bb81cb74 100644\n--- a/gcc/testsuite/c-c++-common/gomp/pr113436-1.c\n+++ b/gcc/testsuite/c-c++-common/gomp/pr113436-1.c\n@@ -2,7 +2,31 @@\n /* { dg-do compile } */\n /* { dg-options \"-fopenmp -fdump-tree-omplower\" } */\n \n-#include <omp.h>\n+// #include <omp.h>\n+typedef __UINTPTR_TYPE__ omp_uintptr_t;\n+\n+#if __cplusplus >= 201103L\n+# define __GOMP_UINTPTR_T_ENUM : omp_uintptr_t\n+#else\n+# define __GOMP_UINTPTR_T_ENUM\n+#endif\n+\n+typedef enum omp_allocator_handle_t __GOMP_UINTPTR_T_ENUM\n+{\n+ omp_null_allocator = 0,\n+ omp_default_mem_alloc = 1,\n+ omp_large_cap_mem_alloc = 2,\n+ omp_const_mem_alloc = 3,\n+ omp_high_bw_mem_alloc = 4,\n+ omp_low_lat_mem_alloc = 5,\n+ omp_cgroup_mem_alloc = 6,\n+ omp_pteam_mem_alloc = 7,\n+ omp_thread_mem_alloc = 8,\n+ ompx_gnu_pinned_mem_alloc = 200,\n+ ompx_gnu_managed_mem_alloc = 201,\n+ __omp_allocator_handle_t_max__ = __UINTPTR_MAX__\n+} omp_allocator_handle_t;\n+\n \n void\n f()\ndiff --git a/gcc/testsuite/c-c++-common/gomp/pr113436-2.c b/gcc/testsuite/c-c++-common/gomp/pr113436-2.c\nindex 1755b6bd209..cb4a807dccc 100644\n--- a/gcc/testsuite/c-c++-common/gomp/pr113436-2.c\n+++ b/gcc/testsuite/c-c++-common/gomp/pr113436-2.c\n@@ -2,7 +2,31 @@\n /* { dg-do compile } */\n /* { dg-options \"-fopenmp -fdump-tree-omplower\" } */\n \n-#include <omp.h>\n+// #include <omp.h>\n+typedef __UINTPTR_TYPE__ omp_uintptr_t;\n+\n+#if __cplusplus >= 201103L\n+# define __GOMP_UINTPTR_T_ENUM : omp_uintptr_t\n+#else\n+# define __GOMP_UINTPTR_T_ENUM\n+#endif\n+\n+typedef enum omp_allocator_handle_t __GOMP_UINTPTR_T_ENUM\n+{\n+ omp_null_allocator = 0,\n+ omp_default_mem_alloc = 1,\n+ omp_large_cap_mem_alloc = 2,\n+ omp_const_mem_alloc = 3,\n+ omp_high_bw_mem_alloc = 4,\n+ omp_low_lat_mem_alloc = 5,\n+ omp_cgroup_mem_alloc = 6,\n+ omp_pteam_mem_alloc = 7,\n+ omp_thread_mem_alloc = 8,\n+ ompx_gnu_pinned_mem_alloc = 200,\n+ ompx_gnu_managed_mem_alloc = 201,\n+ __omp_allocator_handle_t_max__ = __UINTPTR_MAX__\n+} omp_allocator_handle_t;\n+\n \n void\n g()\ndiff --git a/gcc/testsuite/g++.dg/gomp/pr113436.C b/gcc/testsuite/g++.dg/gomp/pr113436.C\nindex ad1cc2f83c6..7078d88ccff 100644\n--- a/gcc/testsuite/g++.dg/gomp/pr113436.C\n+++ b/gcc/testsuite/g++.dg/gomp/pr113436.C\n@@ -2,7 +2,31 @@\n // { dg-do \"compile\" }\n // { dg-options \"-std=gnu++20 -fopenmp -fdump-tree-omplower\" }\n \n-#include <omp.h>\n+// #include <omp.h>\n+typedef __UINTPTR_TYPE__ omp_uintptr_t;\n+\n+#if __cplusplus >= 201103L\n+# define __GOMP_UINTPTR_T_ENUM : omp_uintptr_t\n+#else\n+# define __GOMP_UINTPTR_T_ENUM\n+#endif\n+\n+typedef enum omp_allocator_handle_t __GOMP_UINTPTR_T_ENUM\n+{\n+ omp_null_allocator = 0,\n+ omp_default_mem_alloc = 1,\n+ omp_large_cap_mem_alloc = 2,\n+ omp_const_mem_alloc = 3,\n+ omp_high_bw_mem_alloc = 4,\n+ omp_low_lat_mem_alloc = 5,\n+ omp_cgroup_mem_alloc = 6,\n+ omp_pteam_mem_alloc = 7,\n+ omp_thread_mem_alloc = 8,\n+ ompx_gnu_pinned_mem_alloc = 200,\n+ ompx_gnu_managed_mem_alloc = 201,\n+ __omp_allocator_handle_t_max__ = __UINTPTR_MAX__\n+} omp_allocator_handle_t;\n+\n \n void f()\n {\ndiff --git a/gcc/testsuite/gfortran.dg/gomp/pr113436-1.f90 b/gcc/testsuite/gfortran.dg/gomp/pr113436-1.f90\nindex da757ed720e..1d47a9a00f3 100644\n--- a/gcc/testsuite/gfortran.dg/gomp/pr113436-1.f90\n+++ b/gcc/testsuite/gfortran.dg/gomp/pr113436-1.f90\n@@ -2,8 +2,33 @@\n ! { dg-do compile }\n ! { dg-options \"-fopenmp -fdump-tree-omplower\" }\n \n+module m\n+use iso_c_binding\n+integer, parameter :: omp_allocator_handle_kind = c_intptr_t\n+ integer (kind=omp_allocator_handle_kind), &\n+ parameter :: omp_null_allocator = 0\n+ integer (kind=omp_allocator_handle_kind), &\n+ parameter :: omp_default_mem_alloc = 1\n+ integer (kind=omp_allocator_handle_kind), &\n+ parameter :: omp_large_cap_mem_alloc = 2\n+ integer (kind=omp_allocator_handle_kind), &\n+ parameter :: omp_const_mem_alloc = 3\n+ integer (kind=omp_allocator_handle_kind), &\n+ parameter :: omp_high_bw_mem_alloc = 4\n+ integer (kind=omp_allocator_handle_kind), &\n+ parameter :: omp_low_lat_mem_alloc = 5\n+ integer (kind=omp_allocator_handle_kind), &\n+ parameter :: omp_cgroup_mem_alloc = 6\n+ integer (kind=omp_allocator_handle_kind), &\n+ parameter :: omp_pteam_mem_alloc = 7\n+ integer (kind=omp_allocator_handle_kind), &\n+ parameter :: omp_thread_mem_alloc = 8\n+end\n+\n+\n program g\n- use omp_lib\n+! use omp_lib\n+ use m\n implicit none\n \n integer :: A, B(10)\ndiff --git a/gcc/testsuite/gfortran.dg/gomp/pr113436-2.f90 b/gcc/testsuite/gfortran.dg/gomp/pr113436-2.f90\nindex 0eaf8b5d36d..265a0d98636 100644\n--- a/gcc/testsuite/gfortran.dg/gomp/pr113436-2.f90\n+++ b/gcc/testsuite/gfortran.dg/gomp/pr113436-2.f90\n@@ -2,8 +2,32 @@\n ! { dg-do compile }\n ! { dg-options \"-fopenmp -fdump-tree-omplower\" }\n \n+module m\n+use iso_c_binding\n+integer, parameter :: omp_allocator_handle_kind = c_intptr_t\n+ integer (kind=omp_allocator_handle_kind), &\n+ parameter :: omp_null_allocator = 0\n+ integer (kind=omp_allocator_handle_kind), &\n+ parameter :: omp_default_mem_alloc = 1\n+ integer (kind=omp_allocator_handle_kind), &\n+ parameter :: omp_large_cap_mem_alloc = 2\n+ integer (kind=omp_allocator_handle_kind), &\n+ parameter :: omp_const_mem_alloc = 3\n+ integer (kind=omp_allocator_handle_kind), &\n+ parameter :: omp_high_bw_mem_alloc = 4\n+ integer (kind=omp_allocator_handle_kind), &\n+ parameter :: omp_low_lat_mem_alloc = 5\n+ integer (kind=omp_allocator_handle_kind), &\n+ parameter :: omp_cgroup_mem_alloc = 6\n+ integer (kind=omp_allocator_handle_kind), &\n+ parameter :: omp_pteam_mem_alloc = 7\n+ integer (kind=omp_allocator_handle_kind), &\n+ parameter :: omp_thread_mem_alloc = 8\n+end\n+\n program g\n- use omp_lib\n+! use omp_lib\n+ use m\n implicit none\n \n integer :: A, B(10)\ndiff --git a/gcc/testsuite/gfortran.dg/gomp/pr113436-3.f90 b/gcc/testsuite/gfortran.dg/gomp/pr113436-3.f90\nindex f04200f0624..27592533a4a 100644\n--- a/gcc/testsuite/gfortran.dg/gomp/pr113436-3.f90\n+++ b/gcc/testsuite/gfortran.dg/gomp/pr113436-3.f90\n@@ -2,8 +2,32 @@\n ! { dg-do compile }\n ! { dg-options \"-fopenmp -fno-automatic -fdump-tree-omplower\" }\n \n+module m\n+use iso_c_binding\n+integer, parameter :: omp_allocator_handle_kind = c_intptr_t\n+ integer (kind=omp_allocator_handle_kind), &\n+ parameter :: omp_null_allocator = 0\n+ integer (kind=omp_allocator_handle_kind), &\n+ parameter :: omp_default_mem_alloc = 1\n+ integer (kind=omp_allocator_handle_kind), &\n+ parameter :: omp_large_cap_mem_alloc = 2\n+ integer (kind=omp_allocator_handle_kind), &\n+ parameter :: omp_const_mem_alloc = 3\n+ integer (kind=omp_allocator_handle_kind), &\n+ parameter :: omp_high_bw_mem_alloc = 4\n+ integer (kind=omp_allocator_handle_kind), &\n+ parameter :: omp_low_lat_mem_alloc = 5\n+ integer (kind=omp_allocator_handle_kind), &\n+ parameter :: omp_cgroup_mem_alloc = 6\n+ integer (kind=omp_allocator_handle_kind), &\n+ parameter :: omp_pteam_mem_alloc = 7\n+ integer (kind=omp_allocator_handle_kind), &\n+ parameter :: omp_thread_mem_alloc = 8\n+end\n+\n program g\n- use omp_lib\n+! use omp_lib\n+ use m\n implicit none\n \n integer :: A(10)\ndiff --git a/gcc/testsuite/gfortran.dg/gomp/pr113436-4.f90 b/gcc/testsuite/gfortran.dg/gomp/pr113436-4.f90\nindex 19889d21fdf..98aa5bfb46a 100644\n--- a/gcc/testsuite/gfortran.dg/gomp/pr113436-4.f90\n+++ b/gcc/testsuite/gfortran.dg/gomp/pr113436-4.f90\n@@ -2,8 +2,32 @@\n ! { dg-do compile }\n ! { dg-options \"-fopenmp -fno-automatic -fdump-tree-omplower\" }\n \n+module m\n+use iso_c_binding\n+integer, parameter :: omp_allocator_handle_kind = c_intptr_t\n+ integer (kind=omp_allocator_handle_kind), &\n+ parameter :: omp_null_allocator = 0\n+ integer (kind=omp_allocator_handle_kind), &\n+ parameter :: omp_default_mem_alloc = 1\n+ integer (kind=omp_allocator_handle_kind), &\n+ parameter :: omp_large_cap_mem_alloc = 2\n+ integer (kind=omp_allocator_handle_kind), &\n+ parameter :: omp_const_mem_alloc = 3\n+ integer (kind=omp_allocator_handle_kind), &\n+ parameter :: omp_high_bw_mem_alloc = 4\n+ integer (kind=omp_allocator_handle_kind), &\n+ parameter :: omp_low_lat_mem_alloc = 5\n+ integer (kind=omp_allocator_handle_kind), &\n+ parameter :: omp_cgroup_mem_alloc = 6\n+ integer (kind=omp_allocator_handle_kind), &\n+ parameter :: omp_pteam_mem_alloc = 7\n+ integer (kind=omp_allocator_handle_kind), &\n+ parameter :: omp_thread_mem_alloc = 8\n+end\n+\n program g\n- use omp_lib\n+! use omp_lib\n+ use m\n implicit none\n \n integer :: A(10)\n", "prefixes": [ "committed" ] }