1 ! RUN: %S/test_errors.sh %s %t %f18 -fopenmp
3 ! 2.7.4 workshare Construct
4 ! All array assignments, scalar assignments, and masked array assignments
5 ! must be intrinsic assignments.
8 interface assignment(=)
9 module procedure work_assign
13 subroutine work_assign(a,b)
14 integer, intent(out) :: a
15 logical, intent(in) :: b(:)
16 end subroutine work_assign
17 end module defined_assign
22 integer :: a, aa(10), bb(10)
27 !ERROR: Defined assignment statement is not allowed in a WORKSHARE construct
32 end program omp_workshare