1! PR fortran/100633
2
3module defined_assign
4  interface assignment(=)
5    module procedure work_assign
6  end interface
7
8  contains
9    subroutine work_assign(a,b)
10      integer, intent(out) :: a
11      logical, intent(in) :: b(:)
12    end subroutine work_assign
13end module defined_assign
14
15program omp_workshare
16  use defined_assign
17
18  integer :: a
19  logical :: l(10)
20  l = .TRUE.
21
22  !$omp workshare
23  a = l   ! { dg-error "Expected intrinsic assignment in OMP WORKSHARE" }
24  !$omp end workshare
25
26end program omp_workshare
27