1! { dg-do compile }
2      SUBROUTINE A11_3(AA, BB, CC, DD, N)
3      INTEGER N
4      REAL AA(N,N), BB(N,N), CC(N,N), DD(N,N)
5      REAL R
6        R=0
7!$OMP PARALLEL
8!$OMP WORKSHARE
9             AA = BB
10!$OMP ATOMIC
11               R = R + SUM(AA)
12             CC = DD
13!$OMP END WORKSHARE
14!$OMP END PARALLEL
15      END SUBROUTINE A11_3
16