From 2023cd912c7187b595cfea190002d7a3fcd9166e Mon Sep 17 00:00:00 2001 From: sbrantq Date: Fri, 1 Aug 2025 16:45:17 -0500 Subject: [PATCH 1/2] init len --- micro-benchmarks-fortran/DRB071-targetparallelfor-orig-no.f95 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/micro-benchmarks-fortran/DRB071-targetparallelfor-orig-no.f95 b/micro-benchmarks-fortran/DRB071-targetparallelfor-orig-no.f95 index 5a9a5fe..f95bbf0 100644 --- a/micro-benchmarks-fortran/DRB071-targetparallelfor-orig-no.f95 +++ b/micro-benchmarks-fortran/DRB071-targetparallelfor-orig-no.f95 @@ -14,6 +14,8 @@ program DRB071_targetparallelfor_orig_no integer :: i, len integer, dimension(:), allocatable :: a + len = 1000 + allocate(a(len)) do i = 1, len From 07dca57f7abff88c3be9793f8570d6901b4605eb Mon Sep 17 00:00:00 2001 From: sbrantq Date: Fri, 1 Aug 2025 18:46:09 -0500 Subject: [PATCH 2/2] init lock --- micro-benchmarks-fortran/DRB152-missinglock2-orig-gpu-no.f95 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/micro-benchmarks-fortran/DRB152-missinglock2-orig-gpu-no.f95 b/micro-benchmarks-fortran/DRB152-missinglock2-orig-gpu-no.f95 index 2df0db3..811e970 100644 --- a/micro-benchmarks-fortran/DRB152-missinglock2-orig-gpu-no.f95 +++ b/micro-benchmarks-fortran/DRB152-missinglock2-orig-gpu-no.f95 @@ -15,6 +15,8 @@ program DRB152_missinglock2_orig_gpu_no integer :: var, i var = 0 + call omp_init_lock (lck) + !$omp target map(tofrom:var) device(0) !$omp teams num_teams(1) !$omp distribute parallel do