35 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=602! OpenMP Version 6.03! workdistribute 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_workdistribute20 use defined_assign21 22 integer :: a, aa(10), bb(10)23 logical :: l(10)24 l = .TRUE.25 26 !$omp teams27 !$omp workdistribute28 !ERROR: Defined assignment statement is not allowed in a WORKDISTRIBUTE construct29 a = l30 aa = bb31 !$omp end workdistribute32 !$omp end teams33 34end program omp_workdistribute35