1! { dg-do run }
2    integer (kind = 4) :: a
3    integer (kind = 2) :: b
4    real :: c, f
5    double precision :: d
6    integer, dimension (10) :: e
7    a = 1
8    b = 2
9    c = 3
10    d = 4
11    e = 5
12    f = 6
13!$omp atomic
14    a = a + 4
15!$omp atomic
16    b = 4 - b
17!$omp atomic
18    c = c * 2
19!$omp atomic
20    d = 2 / d
21    if (a .ne. 5 .or. b .ne. 2 .or. c .ne. 6 .or. d .ne. 0.5) call abort
22    d = 1.2
23!$omp atomic
24    a = a + c + d
25!$omp atomic
26    b = b - (a + c + d)
27    if (a .ne. 12 .or. b .ne. -17) call abort
28!$omp atomic
29    a = c + d + a
30!$omp atomic
31    b = a + c + d - b
32    if (a .ne. 19 .or. b .ne. 43) call abort
33!$omp atomic
34    b = (a + c + d) - b
35    a = 32
36!$omp atomic
37    a = a / 3.4
38    if (a .ne. 9 .or. b .ne. -16) call abort
39end
40