! @@name: workshare.3 ! @@type: F-fixed ! @@operation: compile ! @@expect: success ! @@version: pre_omp_3.0 SUBROUTINE WSHARE3(AA, BB, CC, DD, N) INTEGER N REAL AA(N,N), BB(N,N), CC(N,N), DD(N,N) REAL R R=0 !$OMP PARALLEL !$OMP WORKSHARE AA = BB !$OMP ATOMIC UPDATE R = R + SUM(AA) CC = DD !$OMP END WORKSHARE !$OMP END PARALLEL END SUBROUTINE WSHARE3