[flang-commits] [flang] [FLANG][OpenMP][Taskloop] - Add testcase for reduction and in_reduction clause in taskloop construct (PR #139704)

[via flang-commits]

llvmbot wrote:


<!--LLVM PR SUMMARY COMMENT-->

@llvm/pr-subscribers-flang-openmp

Author: Kaviya Rajendiran (kaviya2510)

<details>
<summary>Changes</summary>

Added a testcase for reduction and in_reduction clause in taskloop construct.
Reduction and in_reduction clauses are not supported in taskloop so below error is issued: "not yet implemented: Unhandled clause REDUCTION/IN_REDUCTION in TASKLOOP construct"


---
Full diff: https://github.com/llvm/llvm-project/pull/139704.diff


2 Files Affected:

- (added) flang/test/Lower/OpenMP/Todo/taskloop-inreduction.f90 (+13) 
- (added) flang/test/Lower/OpenMP/Todo/taskloop-reduction.f90 (+13) 


``````````diff
diff --git a/flang/test/Lower/OpenMP/Todo/taskloop-inreduction.f90 b/flang/test/Lower/OpenMP/Todo/taskloop-inreduction.f90
new file mode 100644
index 0000000000000..8acc399a92abe
--- /dev/null
+++ b/flang/test/Lower/OpenMP/Todo/taskloop-inreduction.f90
@@ -0,0 +1,13 @@
+! RUN: %not_todo_cmd bbc -emit-fir -fopenmp -fopenmp-version=50 -o - %s 2>&1 | FileCheck %s
+! RUN: %not_todo_cmd %flang_fc1 -emit-fir -fopenmp -fopenmp-version=50 -o - %s 2>&1 | FileCheck %s
+
+! CHECK: not yet implemented: Unhandled clause IN_REDUCTION in TASKLOOP construct
+subroutine omp_taskloop_inreduction()
+   integer x
+   x = 0
+   !$omp taskloop in_reduction(+:x)
+   do i = 1, 100
+      x = x + 1
+   end do
+   !$omp end taskloop
+end subroutine omp_taskloop_inreduction
diff --git a/flang/test/Lower/OpenMP/Todo/taskloop-reduction.f90 b/flang/test/Lower/OpenMP/Todo/taskloop-reduction.f90
new file mode 100644
index 0000000000000..0c16bd227257f
--- /dev/null
+++ b/flang/test/Lower/OpenMP/Todo/taskloop-reduction.f90
@@ -0,0 +1,13 @@
+! RUN: %not_todo_cmd bbc -emit-fir -fopenmp -fopenmp-version=50 -o - %s 2>&1 | FileCheck %s
+! RUN: %not_todo_cmd %flang_fc1 -emit-fir -fopenmp -fopenmp-version=50 -o - %s 2>&1 | FileCheck %s
+
+! CHECK: not yet implemented: Unhandled clause REDUCTION in TASKLOOP construct
+subroutine omp_taskloop_reduction()
+   integer x
+   x = 0
+   !$omp taskloop reduction(+:x)
+   do i = 1, 100
+      x = x + 1
+   end do
+   !$omp end taskloop
+end subroutine omp_taskloop_reduction

``````````

</details>


https://github.com/llvm/llvm-project/pull/139704