1! { dg-do compile }
2        SUBROUTINE A11_5(AA, BB, CC, DD, N)
3        INTEGER N
4        REAL AA(N,N), BB(N,N), CC(N,N), DD(N,N)
5        INTEGER SHR
6!$OMP PARALLEL SHARED(SHR)
7!$OMP WORKSHARE
8            AA = BB
9            SHR = 1
10            CC = DD * SHR
11!$OMP END WORKSHARE
12!$OMP END PARALLEL
13      END SUBROUTINE A11_5
14
15