1! { dg-do compile } 2 SUBROUTINE A11_7(AA, BB, CC, N) 3 INTEGER N 4 REAL AA(N), BB(N), CC(N) 5!$OMP PARALLEL 6!$OMP WORKSHARE 7 AA(1:50) = BB(11:60) 8 CC(11:20) = AA(1:10) 9!$OMP END WORKSHARE 10!$OMP END PARALLEL 11 END SUBROUTINE A11_7 12