[Openmp-commits] [openmp] [NFC][OpenMP][Flang] Add test for OpenMP target parallel do (PR #77776)

[Dominik Adamski via Openmp-commits]

https://github.com/DominikAdamski created https://github.com/llvm/llvm-project/pull/77776

Added test which proves that end-to-end compilation of `omp target parallel do` costruct is successful for Flang compiler.

>From 8c63cf099f500c334ff5cca891cf8cfa025d0ef2 Mon Sep 17 00:00:00 2001
From: Dominik Adamski <dominik.adamski at amd.com>
Date: Thu, 11 Jan 2024 08:40:57 -0600
Subject: [PATCH] [NFC][OpenMP][Flang] Add test for OpenMP target parallel do

Added test which proves that end-to-end compilation of
omp target parallel do costruct is successful for Flang compiler.
---
 .../fortran/basic-target-parallel-do.f90      | 31 +++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 openmp/libomptarget/test/offloading/fortran/basic-target-parallel-do.f90

diff --git a/openmp/libomptarget/test/offloading/fortran/basic-target-parallel-do.f90 b/openmp/libomptarget/test/offloading/fortran/basic-target-parallel-do.f90
new file mode 100644
index 00000000000000..cae6f6c643d893
--- /dev/null
+++ b/openmp/libomptarget/test/offloading/fortran/basic-target-parallel-do.f90
@@ -0,0 +1,31 @@
+! Basic offloading test with a target region
+! REQUIRES: flang
+! UNSUPPORTED: nvptx64-nvidia-cuda-LTO
+! UNSUPPORTED: aarch64-unknown-linux-gnu
+! UNSUPPORTED: aarch64-unknown-linux-gnu-LTO
+! UNSUPPORTED: x86_64-pc-linux-gnu
+! UNSUPPORTED: x86_64-pc-linux-gnu-LTO
+
+! RUN: %libomptarget-compile-fortran-run-and-check-generic
+program main
+   use omp_lib
+   integer :: x(100)
+   integer :: errors = 0
+   integer :: i
+
+   !$omp target parallel do map(from: x)
+   do i = 1, 100
+       x(i) = i
+   end do
+   !$omp end target parallel do
+   do i = 1, 100
+       if ( x(i) .ne. i ) then
+           errors = errors + 1
+       end if
+   end do
+
+   print *,"number of errors: ", errors
+
+end program main
+
+! CHECK: number of errors: 0