blob: 247f8ae50abb763adf4d4fcee442a1d15c8da8cb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
! { dg-do compile }
subroutine test_atomic
integer (kind = 4) :: a
integer :: b
real :: c, f
double precision :: d
integer, dimension (10) :: e
a = 1
b = 2
c = 3
d = 4
e = 5
f = 6
!$omp atomic
a = a + 4
!$omp atomic
b = 4 - b
!$omp atomic
c = c * 2
!$omp atomic
d = 2 / d
!$omp atomic
e = 1 ! { dg-error "must set a scalar variable" }
!$omp atomic
a = a ** 8 ! { dg-error "assignment operator must be" }
!$omp atomic
b = b + 3 + b ! { dg-error "cannot reference" }
!$omp atomic
c = c - f + 1 ! { dg-error "not mathematically equivalent to" }
!$omp atomic
a = ishft (a, 1) ! { dg-error "assignment intrinsic must be" }
!$omp atomic
c = min (c, 2.1, c) ! { dg-error "intrinsic arguments except one" }
!$omp atomic
a = max (b, e(1)) ! { dg-error "intrinsic argument must be 'a'" }
!$omp atomic
d = 12 ! { dg-error "assignment must have an operator" }
end subroutine test_atomic
|
