33 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp2! OpenMP Version 4.53! 2.7.4 workshare Construct4! All array assignments, scalar assignments, and masked array assignments5! must be intrinsic assignments.6 7module defined_assign8 interface assignment(=)9 module procedure work_assign10 end interface11 12 contains13 subroutine work_assign(a,b)14 integer, intent(out) :: a15 logical, intent(in) :: b(:)16 end subroutine work_assign17end module defined_assign18 19program omp_workshare20 use defined_assign21 22 integer :: a, aa(10), bb(10)23 logical :: l(10)24 l = .TRUE.25 26 !$omp workshare27 !ERROR: Defined assignment statement is not allowed in a WORKSHARE construct28 a = l29 aa = bb30 !$omp end workshare31 32end program omp_workshare33