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
110 lines
3.5 KiB
Fortran
110 lines
3.5 KiB
Fortran
! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
|
|
|
|
! OpenMP Atomic construct
|
|
! section 2.17.7
|
|
! operator is one of +, *, -, /, .AND., .OR., .EQV., or .NEQV
|
|
|
|
program OmpAtomic
|
|
use omp_lib
|
|
CHARACTER c*3, d*3
|
|
LOGICAL l, m, n
|
|
|
|
a = 1
|
|
b = 2
|
|
c = 'foo'
|
|
d = 'bar'
|
|
m = .TRUE.
|
|
n = .FALSE.
|
|
!$omp parallel num_threads(4)
|
|
|
|
!$omp atomic
|
|
a = a + (4*2)
|
|
!$omp atomic
|
|
a = a*(b + 1)
|
|
!$omp atomic
|
|
a = a - 3
|
|
!$omp atomic
|
|
a = a/(b + 1)
|
|
!$omp atomic
|
|
!ERROR: Invalid operator in OpenMP ATOMIC (UPDATE) statement
|
|
a = a**4
|
|
!$omp atomic
|
|
!ERROR: Invalid operator in OpenMP ATOMIC (UPDATE) statement
|
|
c = c//d
|
|
!$omp atomic
|
|
!ERROR: Atomic update statement should be of form `l = l operator expr` OR `l = expr operator l`
|
|
!ERROR: Invalid operator in OpenMP ATOMIC (UPDATE) statement
|
|
l = a .LT. b
|
|
!$omp atomic
|
|
!ERROR: Atomic update statement should be of form `l = l operator expr` OR `l = expr operator l`
|
|
!ERROR: Invalid operator in OpenMP ATOMIC (UPDATE) statement
|
|
l = a .LE. b
|
|
!$omp atomic
|
|
!ERROR: Atomic update statement should be of form `l = l operator expr` OR `l = expr operator l`
|
|
!ERROR: Invalid operator in OpenMP ATOMIC (UPDATE) statement
|
|
l = a .EQ. b
|
|
!$omp atomic
|
|
!ERROR: Atomic update statement should be of form `l = l operator expr` OR `l = expr operator l`
|
|
!ERROR: Invalid operator in OpenMP ATOMIC (UPDATE) statement
|
|
l = a .NE. b
|
|
!$omp atomic
|
|
!ERROR: Atomic update statement should be of form `l = l operator expr` OR `l = expr operator l`
|
|
!ERROR: Invalid operator in OpenMP ATOMIC (UPDATE) statement
|
|
l = a .GE. b
|
|
!$omp atomic
|
|
!ERROR: Atomic update statement should be of form `l = l operator expr` OR `l = expr operator l`
|
|
!ERROR: Invalid operator in OpenMP ATOMIC (UPDATE) statement
|
|
l = a .GT. b
|
|
!$omp atomic
|
|
m = m .AND. n
|
|
!$omp atomic
|
|
m = m .OR. n
|
|
!$omp atomic
|
|
m = m .EQV. n
|
|
!$omp atomic
|
|
m = m .NEQV. n
|
|
!$omp atomic update
|
|
a = a + (4*2)
|
|
!$omp atomic update
|
|
a = a*(b + 1)
|
|
!$omp atomic update
|
|
a = a - 3
|
|
!$omp atomic update
|
|
a = a/(b + 1)
|
|
!$omp atomic update
|
|
!ERROR: Invalid operator in OpenMP ATOMIC (UPDATE) statement
|
|
a = a**4
|
|
!$omp atomic update
|
|
!ERROR: Invalid operator in OpenMP ATOMIC (UPDATE) statement
|
|
c = c//d
|
|
!$omp atomic update
|
|
!ERROR: Atomic update statement should be of form `l = l operator expr` OR `l = expr operator l`
|
|
!ERROR: Invalid operator in OpenMP ATOMIC (UPDATE) statement
|
|
l = a .LT. b
|
|
!$omp atomic update
|
|
!ERROR: Atomic update statement should be of form `l = l operator expr` OR `l = expr operator l`
|
|
!ERROR: Invalid operator in OpenMP ATOMIC (UPDATE) statement
|
|
l = a .LE. b
|
|
!$omp atomic update
|
|
!ERROR: Atomic update statement should be of form `l = l operator expr` OR `l = expr operator l`
|
|
!ERROR: Invalid operator in OpenMP ATOMIC (UPDATE) statement
|
|
l = a .EQ. b
|
|
!$omp atomic update
|
|
!ERROR: Atomic update statement should be of form `l = l operator expr` OR `l = expr operator l`
|
|
!ERROR: Invalid operator in OpenMP ATOMIC (UPDATE) statement
|
|
l = a .GE. b
|
|
!$omp atomic update
|
|
!ERROR: Atomic update statement should be of form `l = l operator expr` OR `l = expr operator l`
|
|
!ERROR: Invalid operator in OpenMP ATOMIC (UPDATE) statement
|
|
l = a .GT. b
|
|
!$omp atomic update
|
|
m = m .AND. n
|
|
!$omp atomic update
|
|
m = m .OR. n
|
|
!$omp atomic update
|
|
m = m .EQV. n
|
|
!$omp atomic update
|
|
m = m .NEQV. n
|
|
!$omp end parallel
|
|
end program OmpAtomic
|