[flang][OpenMP] Add test for checking overloaded operator in atomic update

[NimishMishra]

Atomic update expression does not allow overloaded user-defined operators. This PR adds a test case for the same; the semantic check is already existent.

[llvmbot]

@llvm/pr-subscribers-flang-semantics

@llvm/pr-subscribers-flang-openmp

Author: None (NimishMishra)

Changes

Atomic update expression does not allow overloaded user-defined operators. This PR adds a test case for the same; the semantic check is already existent.

---

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

1 Files Affected:

• (added) flang/test/Semantics/OpenMP/atomic-update-overloaded-ops.f90 (+38)

diff --git a/flang/test/Semantics/OpenMP/atomic-update-overloaded-ops.f90 b/flang/test/Semantics/OpenMP/atomic-update-overloaded-ops.f90
new file mode 100644
index 00000000000000..feac4b20f726aa
--- /dev/null
+++ b/flang/test/Semantics/OpenMP/atomic-update-overloaded-ops.f90
@@ -0,0 +1,38 @@
+! REQUIRES: openmp_runtime
+
+! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp 
+!
+
+module new_operator
+    implicit none
+    private
+    public operator(.MYOPERATOR.)
+
+    interface operator(.MYOPERATOR.)
+       module procedure myprocedure
+    end interface
+contains
+    pure integer function myprocedure(param1, param2)
+        integer, intent(in) :: param1, param2
+        myprocedure = param1 + param2
+    end function
+end module
+
+program sample
+    use omp_lib
+    use new_operator
+    implicit none
+    integer :: x, y 
+
+    
+    !$omp atomic update
+        x = x / y
+     
+    !$omp atomic update
+    !ERROR: Invalid or missing operator in atomic update statement
+        x = x .MYOPERATOR. y
+
+    !$omp atomic
+    !ERROR: Invalid or missing operator in atomic update statement
+        x = x .MYOPERATOR. y
+end program

[kiranchandramohan]

LG.

[kiranchandramohan]

Nit: you can probably remove these two.