1c4c9e8e70
This patch adds general checks for atomic read, write, and capture statements. -check "capture statement is of the form v = x if atomic construct is read" -check "write statement is of the form x = expr if atomic construct is write" -check "x must not have the ALLOCATABLE attribute." -check for non-scalar variables -check if x (LHS variable) is accessed on the RHS of assignment statement -improve error reporting in atomic update statemen Reviewed By: TIFitis, raghavendhra Differential Revision: https://reviews.llvm.org/D127620
170 lines
4.5 KiB
Fortran
170 lines
4.5 KiB
Fortran
! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
|
|
|
|
! OpenMP Atomic construct
|
|
! section 2.17.7
|
|
! Update assignment must be 'var = var op expr' or 'var = expr op var'
|
|
|
|
program OmpAtomic
|
|
use omp_lib
|
|
real x
|
|
integer y
|
|
logical m, n, l
|
|
x = 5.73
|
|
y = 3
|
|
m = .TRUE.
|
|
n = .FALSE.
|
|
!$omp atomic
|
|
x = x + 1
|
|
!$omp atomic
|
|
x = 1 + x
|
|
!$omp atomic
|
|
!ERROR: Atomic update statement should be of form `x = x operator expr` OR `x = expr operator x`
|
|
x = y + 1
|
|
!$omp atomic
|
|
!ERROR: Atomic update statement should be of form `x = x operator expr` OR `x = expr operator x`
|
|
x = 1 + (y + x)
|
|
|
|
!$omp atomic
|
|
!ERROR: Atomic update statement should be of form `x = x operator expr` OR `x = expr operator x`
|
|
x = 1 - (10 * (y + x))
|
|
!$omp atomic
|
|
x = 1 - x
|
|
!$omp atomic
|
|
!ERROR: Atomic update statement should be of form `x = x operator expr` OR `x = expr operator x`
|
|
x = y - 1
|
|
!$omp atomic
|
|
!ERROR: Atomic update statement should be of form `x = x operator expr` OR `x = expr operator x`
|
|
x = 1 - y
|
|
|
|
!$omp atomic
|
|
x = x*1
|
|
!$omp atomic
|
|
x = 1*x
|
|
!$omp atomic
|
|
!ERROR: Atomic update statement should be of form `x = x operator expr` OR `x = expr operator x`
|
|
x = y*(10 + x)
|
|
!$omp atomic
|
|
!ERROR: Atomic update statement should be of form `x = x operator expr` OR `x = expr operator x`
|
|
x = (44 * x) * y
|
|
|
|
!$omp atomic
|
|
x = x/1
|
|
!$omp atomic
|
|
x = 1/x
|
|
!$omp atomic
|
|
!ERROR: Atomic update statement should be of form `x = x operator expr` OR `x = expr operator x`
|
|
x = y/1
|
|
!$omp atomic
|
|
!ERROR: Atomic update statement should be of form `x = x operator expr` OR `x = expr operator x`
|
|
x = 1/y
|
|
|
|
!$omp atomic
|
|
m = m .AND. n
|
|
!$omp atomic
|
|
m = n .AND. m
|
|
!$omp atomic
|
|
!ERROR: Atomic update statement should be of form `m = m operator expr` OR `m = expr operator m`
|
|
m = n .AND. l
|
|
|
|
!$omp atomic
|
|
m = m .OR. n
|
|
!$omp atomic
|
|
m = n .OR. m
|
|
!$omp atomic
|
|
!ERROR: Atomic update statement should be of form `m = m operator expr` OR `m = expr operator m`
|
|
m = n .OR. l
|
|
|
|
!$omp atomic
|
|
m = m .EQV. n
|
|
!$omp atomic
|
|
m = n .EQV. m
|
|
!$omp atomic
|
|
!ERROR: Atomic update statement should be of form `m = m operator expr` OR `m = expr operator m`
|
|
m = n .EQV. l
|
|
|
|
!$omp atomic
|
|
m = m .NEQV. n
|
|
!$omp atomic
|
|
m = n .NEQV. m
|
|
!$omp atomic
|
|
!ERROR: Atomic update statement should be of form `m = m operator expr` OR `m = expr operator m`
|
|
m = n .NEQV. l
|
|
|
|
!$omp atomic update
|
|
x = x + 1
|
|
!$omp atomic update
|
|
x = 1 + x
|
|
!$omp atomic update
|
|
!ERROR: Atomic update statement should be of form `x = x operator expr` OR `x = expr operator x`
|
|
x = y + 1
|
|
!$omp atomic update
|
|
!ERROR: Atomic update statement should be of form `x = x operator expr` OR `x = expr operator x`
|
|
x = 1 + y
|
|
|
|
!$omp atomic update
|
|
x = x - 1
|
|
!$omp atomic update
|
|
x = 1 - x
|
|
!$omp atomic update
|
|
!ERROR: Atomic update statement should be of form `x = x operator expr` OR `x = expr operator x`
|
|
x = y - 1
|
|
!$omp atomic update
|
|
!ERROR: Atomic update statement should be of form `x = x operator expr` OR `x = expr operator x`
|
|
x = 1 - y
|
|
|
|
!$omp atomic update
|
|
x = x*1
|
|
!$omp atomic update
|
|
x = 1*x
|
|
!$omp atomic update
|
|
!ERROR: Atomic update statement should be of form `x = x operator expr` OR `x = expr operator x`
|
|
x = y*1
|
|
!$omp atomic update
|
|
!ERROR: Atomic update statement should be of form `x = x operator expr` OR `x = expr operator x`
|
|
x = 1*y
|
|
|
|
!$omp atomic update
|
|
x = x/1
|
|
!$omp atomic update
|
|
x = 1/x
|
|
!$omp atomic update
|
|
!ERROR: Atomic update statement should be of form `x = x operator expr` OR `x = expr operator x`
|
|
x = max(x, y) + 10
|
|
!$omp atomic update
|
|
!ERROR: Atomic update statement should be of form `x = x operator expr` OR `x = expr operator x`
|
|
x = y * min(x, y)
|
|
|
|
!$omp atomic update
|
|
m = m .AND. n
|
|
!$omp atomic update
|
|
m = n .AND. m
|
|
!$omp atomic update
|
|
!ERROR: Atomic update statement should be of form `m = m operator expr` OR `m = expr operator m`
|
|
m = n .AND. l
|
|
|
|
!$omp atomic update
|
|
m = m .OR. n
|
|
!$omp atomic update
|
|
m = n .OR. m
|
|
!$omp atomic update
|
|
!ERROR: Atomic update statement should be of form `m = m operator expr` OR `m = expr operator m`
|
|
m = n .OR. l
|
|
|
|
!$omp atomic update
|
|
m = m .EQV. n
|
|
!$omp atomic update
|
|
m = n .EQV. m
|
|
!$omp atomic update
|
|
!ERROR: Atomic update statement should be of form `m = m operator expr` OR `m = expr operator m`
|
|
m = n .EQV. l
|
|
|
|
!$omp atomic update
|
|
m = m .NEQV. n
|
|
!$omp atomic update
|
|
m = n .NEQV. m
|
|
!$omp atomic update
|
|
!ERROR: Atomic update statement should be of form `m = m operator expr` OR `m = expr operator m`
|
|
m = n .NEQV. l
|
|
|
|
end program OmpAtomic
|