From dd545a0f28ee0b2bb5375f8f267554954ffc5b9a Mon Sep 17 00:00:00 2001 From: Michael Lange Date: Sun, 3 Nov 2024 05:29:00 +0000 Subject: [PATCH] Parallel: Add `DEFAULT(SHARED)` to OpenMP parallel clause creation --- loki/transformations/parallel/openmp_region.py | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/loki/transformations/parallel/openmp_region.py b/loki/transformations/parallel/openmp_region.py index 69b111401..3a8d08633 100644 --- a/loki/transformations/parallel/openmp_region.py +++ b/loki/transformations/parallel/openmp_region.py @@ -165,7 +165,7 @@ def add_openmp_regions(routine, global_variables=None, field_group_types=None): s_firstprivate = f'FIRSTPRIVATE({s_fp_vars})' if firstprivates else '' s_private = f'PRIVATE({", ".join(str(v) for v in privates)})' if privates else '' pragma_parallel = ir.Pragma( - keyword='OMP', content=f'PARALLEL {s_private} {s_firstprivate}' + keyword='OMP', content=f'PARALLEL DEFAULT(SHARED) {s_private} {s_firstprivate}' ) region._update( pragma=pragma_parallel,