1! RUN: %S/test_errors.sh %s %t %f18 -fopenmp 2! XFAIL: * 3 4! OpenMP Version 4.5 5! 2.7.4 workshare Construct 6! Invalid do construct inside !$omp workshare 7 8subroutine workshare(aa, bb, cc, dd, ee, ff, n) 9 integer n, i 10 real aa(n,n), bb(n,n), cc(n,n), dd(n,n), ee(n,n), ff(n,n) 11 12 !$omp workshare 13 !ERROR: Unexpected do stmt inside !$omp workshare 14 do i = 1, n 15 print *, "omp workshare" 16 end do 17 18 aa = bb 19 cc = dd 20 ee = ff 21 !$omp end workshare 22 23end subroutine workshare 24