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