48 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp2 3! Check OpenMP 2.17 Nesting of Regions4 5 N = 10246 !$omp do7 do i = 1, N8 !ERROR: A worksharing region may not be closely nested inside a worksharing, explicit task, taskloop, critical, ordered, atomic, or master region9 !$omp do10 do j = 1, N11 a = 3.1412 enddo13 enddo14 15 !$omp do16 do i = 1, N17 !$omp target18 do k = 1,N19 !ERROR: A worksharing region may not be closely nested inside a worksharing, explicit task, taskloop, critical, ordered, atomic, or master region20 !$omp do21 do j = 1, N22 a = 3.1423 enddo24 enddo25 !$omp end target26 enddo27 28 !$omp do29 do i = 1, N30 !ERROR: A worksharing region may not be closely nested inside a worksharing, explicit task, taskloop, critical, ordered, atomic, or master region31 !$omp scope32 !$omp end scope33 end do34 !$omp end do35 36 !$omp do37 do i = 1, N38 !$omp parallel39 do k = 1,N40 !$omp do41 do j = 1, N42 a = 3.1443 enddo44 enddo45 !$omp end parallel46 enddo47end48