[PATCH] [og13] OpenACC: Vector length warning fixes for implicit mapping/declare create tests

[Julian Brown]

This patch adds expected "vector length" warnings to several tests
for NVPTX.

Tested with offloading to NVPTX. I will apply (to og13) shortly.

2023-07-11  Julian Brown  <jul...@codesourcery.com>

libgomp/
        * testsuite/libgomp.oacc-c-c++-common/implicit-mapping-1.c: Add
        expected warning.
        * testsuite/libgomp.oacc-fortran/declare-create-1.f90: Likewise.
        * testsuite/libgomp.oacc-fortran/declare-create-2.f90: Likewise.
        * testsuite/libgomp.oacc-fortran/declare-create-3.f90: Likewise.
        * testsuite/libgomp.oacc-fortran/nonlexical-assumed-size-1.f90:
        Likewise.
        * testsuite/libgomp.oacc-fortran/nonlexical-assumed-size-2.f90:
        Likewise.
---
 libgomp/testsuite/libgomp.oacc-c-c++-common/implicit-mapping-1.c | 1 +
 libgomp/testsuite/libgomp.oacc-fortran/declare-create-1.f90      | 1 +
 libgomp/testsuite/libgomp.oacc-fortran/declare-create-2.f90      | 1 +
 libgomp/testsuite/libgomp.oacc-fortran/declare-create-3.f90      | 1 +
 .../testsuite/libgomp.oacc-fortran/nonlexical-assumed-size-1.f90 | 1 +
 .../testsuite/libgomp.oacc-fortran/nonlexical-assumed-size-2.f90 | 1 +
 6 files changed, 6 insertions(+)

diff --git a/libgomp/testsuite/libgomp.oacc-c-c++-common/implicit-mapping-1.c 
b/libgomp/testsuite/libgomp.oacc-c-c++-common/implicit-mapping-1.c
index 4825e875998..ed0ab94cd8f 100644
--- a/libgomp/testsuite/libgomp.oacc-c-c++-common/implicit-mapping-1.c
+++ b/libgomp/testsuite/libgomp.oacc-c-c++-common/implicit-mapping-1.c
@@ -12,6 +12,7 @@ int main(void)
 #pragma acc enter data copyin(arr[30:10])
 
 #pragma acc serial
+/* { dg-warning {using .vector_length \(32\)., ignoring 1} "" { target 
openacc_nvidia_accel_selected } .-1 } */
   {
     arr[33] = 66;
   }
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/declare-create-1.f90 
b/libgomp/testsuite/libgomp.oacc-fortran/declare-create-1.f90
index 9e7e60f1440..057b5eb958a 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/declare-create-1.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/declare-create-1.f90
@@ -11,6 +11,7 @@ use m
 mint = 0
 
 !$acc serial
+! { dg-warning {using .vector_length \(32\)., ignoring 1} "" { target 
openacc_nvidia_accel_selected } .-1 }
 mint = 5
 !$acc end serial
 
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/declare-create-2.f90 
b/libgomp/testsuite/libgomp.oacc-fortran/declare-create-2.f90
index 675f6902775..dd7c9798fba 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/declare-create-2.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/declare-create-2.f90
@@ -13,6 +13,7 @@ allocate(mint)
 mint = 0
 
 !$acc serial
+! { dg-warning {using .vector_length \(32\)., ignoring 1} "" { target 
openacc_nvidia_accel_selected } .-1 }
 mint = 5
 !$acc end serial
 
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/declare-create-3.f90 
b/libgomp/testsuite/libgomp.oacc-fortran/declare-create-3.f90
index 16651cb1f5e..7cceaa5f8a3 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/declare-create-3.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/declare-create-3.f90
@@ -13,6 +13,7 @@ allocate(mint(1:20))
 mint = 0
 
 !$acc serial
+! { dg-warning {using .vector_length \(32\)., ignoring 1} "" { target 
openacc_nvidia_accel_selected } .-1 }
 mint = 5
 !$acc end serial
 
diff --git 
a/libgomp/testsuite/libgomp.oacc-fortran/nonlexical-assumed-size-1.f90 
b/libgomp/testsuite/libgomp.oacc-fortran/nonlexical-assumed-size-1.f90
index 4b61e1cee9b..8b173c72d88 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/nonlexical-assumed-size-1.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/nonlexical-assumed-size-1.f90
@@ -19,6 +19,7 @@ integer :: arr(*)
 !$acc enter data copyin(arr(1:10))
 
 !$acc serial
+! { dg-warning {using .vector_length \(32\)., ignoring 1} "" { target 
openacc_nvidia_accel_selected } .-1 }
 arr(5) = 5
 !$acc end serial
 
diff --git 
a/libgomp/testsuite/libgomp.oacc-fortran/nonlexical-assumed-size-2.f90 
b/libgomp/testsuite/libgomp.oacc-fortran/nonlexical-assumed-size-2.f90
index daf7089915f..659fe8e3c06 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/nonlexical-assumed-size-2.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/nonlexical-assumed-size-2.f90
@@ -30,6 +30,7 @@ integer :: arr(*)
 ! overwritten.
 
 !$acc serial
+! { dg-warning {using .vector_length \(32\)., ignoring 1} "" { target 
openacc_nvidia_accel_selected } .-1 }
 ! This access is then done via the on-target pointer.
 arr(5) = 5
 !$acc end serial
-- 
2.41.0