From dfbde74e1bcf2115745c69850195908ca89b6fbf Mon Sep 17 00:00:00 2001
From: agozillon <Andrew.Gozillon@amd.com>
Date: Wed, 21 Oct 2026 15:22:15 -0500
Subject: [PATCH] [Flang][OpenMP][Fortran-map-tests] Adjust tests for
 privatized descriptors

These tests write over the bounds of the mapped device data, previously our devices were fine with this
but after privatizing the descriptor they will be less happy with this.
---
 .../allocatable-array-section-1d-upperbound.f95             | 2 +-
 test/fortran-map-tests/allocatable-map-scopes-bounds.f95    | 6 +++---
 .../pointer-array-section-1d-upperbound.f95                 | 2 +-
 test/fortran-map-tests/pointer-map-scopes-bounds.f95        | 6 +++---
 .../pointer-target-array-section-1d-upperbound.f95          | 2 +-
 test/fortran-map-tests/pointer-target-map-scopes-bounds.f95 | 6 +++---
 6 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/test/fortran-map-tests/allocatable-array-section-1d-upperbound.f95 b/test/fortran-map-tests/allocatable-array-section-1d-upperbound.f95
index d0b960409b..e0aab1ffe9 100644
--- a/test/fortran-map-tests/allocatable-array-section-1d-upperbound.f95
+++ b/test/fortran-map-tests/allocatable-array-section-1d-upperbound.f95
@@ -15,7 +15,7 @@ program prog_a
     end do
 
     !$omp target map(tofrom:var_a(2:6)) map(tofrom:var_b(2:6))
-        do var_c = 1, 10
+        do var_c = 2, 6
             var_b(var_c) = var_a(var_c)
         end do
     !$omp end target
diff --git a/test/fortran-map-tests/allocatable-map-scopes-bounds.f95 b/test/fortran-map-tests/allocatable-map-scopes-bounds.f95
index c012659418..47c05327c2 100644
--- a/test/fortran-map-tests/allocatable-map-scopes-bounds.f95
+++ b/test/fortran-map-tests/allocatable-map-scopes-bounds.f95
@@ -10,7 +10,7 @@ subroutine sub_a(var_a)
   integer,  allocatable, intent (inout) :: var_a(:)
 
 !$omp target map(tofrom: var_a(2:6))
-  do var_b = 1, 10
+  do var_b = 2, 6
     var_a(var_b) = var_a(var_b) + var_b
   end do
 !$omp end target
@@ -34,7 +34,7 @@ subroutine sub_b
   allocate(var_c(10))
 
 !$omp target map(tofrom: var_c(2:6))
-  do var_a = 1, 10
+  do var_a = 2, 6
     var_c(var_a) = var_a
   end do
 !$omp end target
@@ -60,7 +60,7 @@ program prog_a
 allocate(var_c(10))
 
 !$omp target map(tofrom: var_c(2:6))
-  do var_a = 1, 10
+  do var_a = 2, 6
     var_c(var_a) = var_a
   end do
 !$omp end target
diff --git a/test/fortran-map-tests/pointer-array-section-1d-upperbound.f95 b/test/fortran-map-tests/pointer-array-section-1d-upperbound.f95
index 8284ac0d76..d3de8ecba1 100644
--- a/test/fortran-map-tests/pointer-array-section-1d-upperbound.f95
+++ b/test/fortran-map-tests/pointer-array-section-1d-upperbound.f95
@@ -15,7 +15,7 @@ program prog_a
     end do
 
     !$omp target map(tofrom:var_a(2:6)) map(tofrom:var_b(2:6))
-        do var_c = 1, 10
+        do var_c = 2, 6
             var_b(var_c) = var_a(var_c)
         end do
     !$omp end target
diff --git a/test/fortran-map-tests/pointer-map-scopes-bounds.f95 b/test/fortran-map-tests/pointer-map-scopes-bounds.f95
index 2bf374071d..a76c8c5d28 100644
--- a/test/fortran-map-tests/pointer-map-scopes-bounds.f95
+++ b/test/fortran-map-tests/pointer-map-scopes-bounds.f95
@@ -10,7 +10,7 @@ subroutine sub_a(var_a)
   integer :: var_b, var_c
 
 !$omp target map(tofrom: var_a(2:6))
-  do var_b = 1, 10
+  do var_b = 2, 6
     var_a(var_b) = var_a(var_b) + var_b
   end do
 !$omp end target
@@ -34,7 +34,7 @@ subroutine sub_b
   allocate(var_a(10))
 
 !$omp target map(tofrom: var_a(2:6))
-  do var_b = 1, 10
+  do var_b = 2, 6
     var_a(var_b) = var_b
   end do
 !$omp end target
@@ -61,7 +61,7 @@ program prog_a
 allocate(var_a(10))
 
 !$omp target map(tofrom: var_a(2:6))
-  do var_b = 1, 10
+  do var_b = 2, 6
     var_a(var_b) = var_b
   end do
 !$omp end target
diff --git a/test/fortran-map-tests/pointer-target-array-section-1d-upperbound.f95 b/test/fortran-map-tests/pointer-target-array-section-1d-upperbound.f95
index 8fbd567162..8c68c2d5b5 100644
--- a/test/fortran-map-tests/pointer-target-array-section-1d-upperbound.f95
+++ b/test/fortran-map-tests/pointer-target-array-section-1d-upperbound.f95
@@ -17,7 +17,7 @@ program prog_a
     end do
 
     !$omp target map(tofrom:var_a(2:6)) map(tofrom:var_b(2:6))
-        do var_e = 1, 10
+        do var_e = 2, 6
             var_b(var_e) = var_a(var_e)
         end do
     !$omp end target
diff --git a/test/fortran-map-tests/pointer-target-map-scopes-bounds.f95 b/test/fortran-map-tests/pointer-target-map-scopes-bounds.f95
index 9d23dd702d..e37bee38c8 100644
--- a/test/fortran-map-tests/pointer-target-map-scopes-bounds.f95
+++ b/test/fortran-map-tests/pointer-target-map-scopes-bounds.f95
@@ -10,7 +10,7 @@ subroutine sub_a(var_a)
   integer,  pointer, intent (inout) :: var_a(:)
 
 !$omp target map(tofrom: var_a(2:6))
-  do var_b = 1, 10
+  do var_b = 2, 6
     var_a(var_b) = var_a(var_b) + var_b
   end do
 !$omp end target
@@ -35,7 +35,7 @@ subroutine sub_b
   var_c => var_d
 
 !$omp target map(tofrom: var_c(2:6))
-  do var_a = 1, 10
+  do var_a = 2, 6
     var_c(var_a) = var_a
   end do
 !$omp end target
@@ -60,7 +60,7 @@ program prog_a
 var_c => var_d
 
 !$omp target map(tofrom: var_c(2:6))
-  do var_a = 1, 10
+  do var_a = 2, 6
     var_c(var_a) = var_a
   end do
 !$omp end target