Dead
[official-gcc.git] / gomp-20050608-branch / gcc / testsuite / gfortran.dg / gomp / appendix-a / a.11.4.f90
blobae95c1f98e2bb3304a3776f1463474b452dbc980
1 ! { dg-do compile }
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