b826d551fc
To be consistent with OpenACC and will find the tests in one single directory for OpenMP. Reviewed By: kiranchandramohan Differential Revision: https://reviews.llvm.org/D127529
110 lines
3.7 KiB
Fortran
110 lines
3.7 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 variable 'l' not found in the RHS of the assignment statement in an ATOMIC (UPDATE) construct
|
|
!ERROR: Invalid operator in OpenMP ATOMIC (UPDATE) statement
|
|
l = a .LT. b
|
|
!$omp atomic
|
|
!ERROR: Atomic update variable 'l' not found in the RHS of the assignment statement in an ATOMIC (UPDATE) construct
|
|
!ERROR: Invalid operator in OpenMP ATOMIC (UPDATE) statement
|
|
l = a .LE. b
|
|
!$omp atomic
|
|
!ERROR: Atomic update variable 'l' not found in the RHS of the assignment statement in an ATOMIC (UPDATE) construct
|
|
!ERROR: Invalid operator in OpenMP ATOMIC (UPDATE) statement
|
|
l = a .EQ. b
|
|
!$omp atomic
|
|
!ERROR: Atomic update variable 'l' not found in the RHS of the assignment statement in an ATOMIC (UPDATE) construct
|
|
!ERROR: Invalid operator in OpenMP ATOMIC (UPDATE) statement
|
|
l = a .NE. b
|
|
!$omp atomic
|
|
!ERROR: Atomic update variable 'l' not found in the RHS of the assignment statement in an ATOMIC (UPDATE) construct
|
|
!ERROR: Invalid operator in OpenMP ATOMIC (UPDATE) statement
|
|
l = a .GE. b
|
|
!$omp atomic
|
|
!ERROR: Atomic update variable 'l' not found in the RHS of the assignment statement in an ATOMIC (UPDATE) construct
|
|
!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 variable 'l' not found in the RHS of the assignment statement in an ATOMIC (UPDATE) construct
|
|
!ERROR: Invalid operator in OpenMP ATOMIC (UPDATE) statement
|
|
l = a .LT. b
|
|
!$omp atomic update
|
|
!ERROR: Atomic update variable 'l' not found in the RHS of the assignment statement in an ATOMIC (UPDATE) construct
|
|
!ERROR: Invalid operator in OpenMP ATOMIC (UPDATE) statement
|
|
l = a .LE. b
|
|
!$omp atomic update
|
|
!ERROR: Atomic update variable 'l' not found in the RHS of the assignment statement in an ATOMIC (UPDATE) construct
|
|
!ERROR: Invalid operator in OpenMP ATOMIC (UPDATE) statement
|
|
l = a .EQ. b
|
|
!$omp atomic update
|
|
!ERROR: Atomic update variable 'l' not found in the RHS of the assignment statement in an ATOMIC (UPDATE) construct
|
|
!ERROR: Invalid operator in OpenMP ATOMIC (UPDATE) statement
|
|
l = a .GE. b
|
|
!$omp atomic update
|
|
!ERROR: Atomic update variable 'l' not found in the RHS of the assignment statement in an ATOMIC (UPDATE) construct
|
|
!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
|