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