[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