From: Tobias Burnus Date: Fri, 13 Feb 2026 11:29:03 +0000 (+0100) Subject: Fix gcc/testsuite/*/gomp/pr113436* [PR113436] X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=eb311dc3db842d5e2bd4215184a01099e0f26d6c;p=thirdparty%2Fgcc.git Fix gcc/testsuite/*/gomp/pr113436* [PR113436] Testcases in gcc/testsuite/ may not '#include ' or 'use omp_lib'; instead, now a local declaration of the enum/Fortran-parameter values is used. gcc/testsuite/ChangeLog: PR middle-end/113436 * c-c++-common/gomp/pr113436-1.c: Replace '#include ' by local declaration for omp_allocator_handle_t. * c-c++-common/gomp/pr113436-2.c: Likewise. * g++.dg/gomp/pr113436.C: Likewise. * gfortran.dg/gomp/pr113436-1.f90: Replace 'use omp_lib' by local omp_*_mem_alloc parameter declarations. * gfortran.dg/gomp/pr113436-2.f90: Likewise. * gfortran.dg/gomp/pr113436-3.f90: Likewise. * gfortran.dg/gomp/pr113436-4.f90: Likewise. --- diff --git a/gcc/testsuite/c-c++-common/gomp/pr113436-1.c b/gcc/testsuite/c-c++-common/gomp/pr113436-1.c index 985cc212863..db9bb81cb74 100644 --- a/gcc/testsuite/c-c++-common/gomp/pr113436-1.c +++ b/gcc/testsuite/c-c++-common/gomp/pr113436-1.c @@ -2,7 +2,31 @@ /* { dg-do compile } */ /* { dg-options "-fopenmp -fdump-tree-omplower" } */ -#include +// #include +typedef __UINTPTR_TYPE__ omp_uintptr_t; + +#if __cplusplus >= 201103L +# define __GOMP_UINTPTR_T_ENUM : omp_uintptr_t +#else +# define __GOMP_UINTPTR_T_ENUM +#endif + +typedef enum omp_allocator_handle_t __GOMP_UINTPTR_T_ENUM +{ + omp_null_allocator = 0, + omp_default_mem_alloc = 1, + omp_large_cap_mem_alloc = 2, + omp_const_mem_alloc = 3, + omp_high_bw_mem_alloc = 4, + omp_low_lat_mem_alloc = 5, + omp_cgroup_mem_alloc = 6, + omp_pteam_mem_alloc = 7, + omp_thread_mem_alloc = 8, + ompx_gnu_pinned_mem_alloc = 200, + ompx_gnu_managed_mem_alloc = 201, + __omp_allocator_handle_t_max__ = __UINTPTR_MAX__ +} omp_allocator_handle_t; + void f() diff --git a/gcc/testsuite/c-c++-common/gomp/pr113436-2.c b/gcc/testsuite/c-c++-common/gomp/pr113436-2.c index 1755b6bd209..cb4a807dccc 100644 --- a/gcc/testsuite/c-c++-common/gomp/pr113436-2.c +++ b/gcc/testsuite/c-c++-common/gomp/pr113436-2.c @@ -2,7 +2,31 @@ /* { dg-do compile } */ /* { dg-options "-fopenmp -fdump-tree-omplower" } */ -#include +// #include +typedef __UINTPTR_TYPE__ omp_uintptr_t; + +#if __cplusplus >= 201103L +# define __GOMP_UINTPTR_T_ENUM : omp_uintptr_t +#else +# define __GOMP_UINTPTR_T_ENUM +#endif + +typedef enum omp_allocator_handle_t __GOMP_UINTPTR_T_ENUM +{ + omp_null_allocator = 0, + omp_default_mem_alloc = 1, + omp_large_cap_mem_alloc = 2, + omp_const_mem_alloc = 3, + omp_high_bw_mem_alloc = 4, + omp_low_lat_mem_alloc = 5, + omp_cgroup_mem_alloc = 6, + omp_pteam_mem_alloc = 7, + omp_thread_mem_alloc = 8, + ompx_gnu_pinned_mem_alloc = 200, + ompx_gnu_managed_mem_alloc = 201, + __omp_allocator_handle_t_max__ = __UINTPTR_MAX__ +} omp_allocator_handle_t; + void g() diff --git a/gcc/testsuite/g++.dg/gomp/pr113436.C b/gcc/testsuite/g++.dg/gomp/pr113436.C index ad1cc2f83c6..7078d88ccff 100644 --- a/gcc/testsuite/g++.dg/gomp/pr113436.C +++ b/gcc/testsuite/g++.dg/gomp/pr113436.C @@ -2,7 +2,31 @@ // { dg-do "compile" } // { dg-options "-std=gnu++20 -fopenmp -fdump-tree-omplower" } -#include +// #include +typedef __UINTPTR_TYPE__ omp_uintptr_t; + +#if __cplusplus >= 201103L +# define __GOMP_UINTPTR_T_ENUM : omp_uintptr_t +#else +# define __GOMP_UINTPTR_T_ENUM +#endif + +typedef enum omp_allocator_handle_t __GOMP_UINTPTR_T_ENUM +{ + omp_null_allocator = 0, + omp_default_mem_alloc = 1, + omp_large_cap_mem_alloc = 2, + omp_const_mem_alloc = 3, + omp_high_bw_mem_alloc = 4, + omp_low_lat_mem_alloc = 5, + omp_cgroup_mem_alloc = 6, + omp_pteam_mem_alloc = 7, + omp_thread_mem_alloc = 8, + ompx_gnu_pinned_mem_alloc = 200, + ompx_gnu_managed_mem_alloc = 201, + __omp_allocator_handle_t_max__ = __UINTPTR_MAX__ +} omp_allocator_handle_t; + void f() { diff --git a/gcc/testsuite/gfortran.dg/gomp/pr113436-1.f90 b/gcc/testsuite/gfortran.dg/gomp/pr113436-1.f90 index da757ed720e..1d47a9a00f3 100644 --- a/gcc/testsuite/gfortran.dg/gomp/pr113436-1.f90 +++ b/gcc/testsuite/gfortran.dg/gomp/pr113436-1.f90 @@ -2,8 +2,33 @@ ! { dg-do compile } ! { dg-options "-fopenmp -fdump-tree-omplower" } +module m +use iso_c_binding +integer, parameter :: omp_allocator_handle_kind = c_intptr_t + integer (kind=omp_allocator_handle_kind), & + parameter :: omp_null_allocator = 0 + integer (kind=omp_allocator_handle_kind), & + parameter :: omp_default_mem_alloc = 1 + integer (kind=omp_allocator_handle_kind), & + parameter :: omp_large_cap_mem_alloc = 2 + integer (kind=omp_allocator_handle_kind), & + parameter :: omp_const_mem_alloc = 3 + integer (kind=omp_allocator_handle_kind), & + parameter :: omp_high_bw_mem_alloc = 4 + integer (kind=omp_allocator_handle_kind), & + parameter :: omp_low_lat_mem_alloc = 5 + integer (kind=omp_allocator_handle_kind), & + parameter :: omp_cgroup_mem_alloc = 6 + integer (kind=omp_allocator_handle_kind), & + parameter :: omp_pteam_mem_alloc = 7 + integer (kind=omp_allocator_handle_kind), & + parameter :: omp_thread_mem_alloc = 8 +end + + program g - use omp_lib +! use omp_lib + use m implicit none integer :: A, B(10) diff --git a/gcc/testsuite/gfortran.dg/gomp/pr113436-2.f90 b/gcc/testsuite/gfortran.dg/gomp/pr113436-2.f90 index 0eaf8b5d36d..265a0d98636 100644 --- a/gcc/testsuite/gfortran.dg/gomp/pr113436-2.f90 +++ b/gcc/testsuite/gfortran.dg/gomp/pr113436-2.f90 @@ -2,8 +2,32 @@ ! { dg-do compile } ! { dg-options "-fopenmp -fdump-tree-omplower" } +module m +use iso_c_binding +integer, parameter :: omp_allocator_handle_kind = c_intptr_t + integer (kind=omp_allocator_handle_kind), & + parameter :: omp_null_allocator = 0 + integer (kind=omp_allocator_handle_kind), & + parameter :: omp_default_mem_alloc = 1 + integer (kind=omp_allocator_handle_kind), & + parameter :: omp_large_cap_mem_alloc = 2 + integer (kind=omp_allocator_handle_kind), & + parameter :: omp_const_mem_alloc = 3 + integer (kind=omp_allocator_handle_kind), & + parameter :: omp_high_bw_mem_alloc = 4 + integer (kind=omp_allocator_handle_kind), & + parameter :: omp_low_lat_mem_alloc = 5 + integer (kind=omp_allocator_handle_kind), & + parameter :: omp_cgroup_mem_alloc = 6 + integer (kind=omp_allocator_handle_kind), & + parameter :: omp_pteam_mem_alloc = 7 + integer (kind=omp_allocator_handle_kind), & + parameter :: omp_thread_mem_alloc = 8 +end + program g - use omp_lib +! use omp_lib + use m implicit none integer :: A, B(10) diff --git a/gcc/testsuite/gfortran.dg/gomp/pr113436-3.f90 b/gcc/testsuite/gfortran.dg/gomp/pr113436-3.f90 index f04200f0624..27592533a4a 100644 --- a/gcc/testsuite/gfortran.dg/gomp/pr113436-3.f90 +++ b/gcc/testsuite/gfortran.dg/gomp/pr113436-3.f90 @@ -2,8 +2,32 @@ ! { dg-do compile } ! { dg-options "-fopenmp -fno-automatic -fdump-tree-omplower" } +module m +use iso_c_binding +integer, parameter :: omp_allocator_handle_kind = c_intptr_t + integer (kind=omp_allocator_handle_kind), & + parameter :: omp_null_allocator = 0 + integer (kind=omp_allocator_handle_kind), & + parameter :: omp_default_mem_alloc = 1 + integer (kind=omp_allocator_handle_kind), & + parameter :: omp_large_cap_mem_alloc = 2 + integer (kind=omp_allocator_handle_kind), & + parameter :: omp_const_mem_alloc = 3 + integer (kind=omp_allocator_handle_kind), & + parameter :: omp_high_bw_mem_alloc = 4 + integer (kind=omp_allocator_handle_kind), & + parameter :: omp_low_lat_mem_alloc = 5 + integer (kind=omp_allocator_handle_kind), & + parameter :: omp_cgroup_mem_alloc = 6 + integer (kind=omp_allocator_handle_kind), & + parameter :: omp_pteam_mem_alloc = 7 + integer (kind=omp_allocator_handle_kind), & + parameter :: omp_thread_mem_alloc = 8 +end + program g - use omp_lib +! use omp_lib + use m implicit none integer :: A(10) diff --git a/gcc/testsuite/gfortran.dg/gomp/pr113436-4.f90 b/gcc/testsuite/gfortran.dg/gomp/pr113436-4.f90 index 19889d21fdf..98aa5bfb46a 100644 --- a/gcc/testsuite/gfortran.dg/gomp/pr113436-4.f90 +++ b/gcc/testsuite/gfortran.dg/gomp/pr113436-4.f90 @@ -2,8 +2,32 @@ ! { dg-do compile } ! { dg-options "-fopenmp -fno-automatic -fdump-tree-omplower" } +module m +use iso_c_binding +integer, parameter :: omp_allocator_handle_kind = c_intptr_t + integer (kind=omp_allocator_handle_kind), & + parameter :: omp_null_allocator = 0 + integer (kind=omp_allocator_handle_kind), & + parameter :: omp_default_mem_alloc = 1 + integer (kind=omp_allocator_handle_kind), & + parameter :: omp_large_cap_mem_alloc = 2 + integer (kind=omp_allocator_handle_kind), & + parameter :: omp_const_mem_alloc = 3 + integer (kind=omp_allocator_handle_kind), & + parameter :: omp_high_bw_mem_alloc = 4 + integer (kind=omp_allocator_handle_kind), & + parameter :: omp_low_lat_mem_alloc = 5 + integer (kind=omp_allocator_handle_kind), & + parameter :: omp_cgroup_mem_alloc = 6 + integer (kind=omp_allocator_handle_kind), & + parameter :: omp_pteam_mem_alloc = 7 + integer (kind=omp_allocator_handle_kind), & + parameter :: omp_thread_mem_alloc = 8 +end + program g - use omp_lib +! use omp_lib + use m implicit none integer :: A(10)