1! { dg-do compile } 2 3 SUBROUTINE A11_4(AA, BB, CC, DD, EE, FF, GG, HH, N) 4 INTEGER N 5 REAL AA(N,N), BB(N,N), CC(N,N) 6 REAL DD(N,N), EE(N,N), FF(N,N) 7 REAL GG(N,N), HH(N,N) 8!$OMP PARALLEL 9!$OMP WORKSHARE 10 AA = BB 11 CC = DD 12 WHERE (EE .ne. 0) FF = 1 / EE 13 GG = HH 14!$OMP END WORKSHARE 15!$OMP END PARALLEL 16 END SUBROUTINE A11_4 17