[flang-commits] [flang] [flang][OpenMP] Add test for checking overloaded operator in atomic update (PR #88471)

Kiran Chandramohan via flang-commits flang-commits at lists.llvm.org
Fri Apr 12 05:14:34 PDT 2024


================
@@ -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 
+
----------------
kiranchandramohan wrote:

Nit: extra empty line

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


More information about the flang-commits mailing list