| ! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp |
| |
| module new_operator |
| implicit none |
| |
| 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 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 |