81 lines · plain
1!RUN: %python %S/../test_errors.py %s %flang -fopenmp2 3subroutine f004!$omp parallel5!ERROR: Missing cancel-directive-name clause on the CANCEL construct6!$omp cancel7!$omp end parallel8end9 10subroutine f0111!$omp parallel12!ERROR: Multiple cancel-directive-name clauses are not allowed on the CANCEL construct13!$omp cancel parallel parallel14!$omp end parallel15end16 17subroutine f0218!$omp parallel19!ERROR: Missing cancel-directive-name clause on the CANCELLATION POINT construct20!$omp cancellation point21!$omp end parallel22end23 24subroutine f0325!$omp parallel26!ERROR: Multiple cancel-directive-name clauses are not allowed on the CANCELLATION POINT construct27!$omp cancellation point parallel parallel28!$omp end parallel29end30 31subroutine do_nowait132!$omp parallel33!$omp do nowait34 do i=1,235!ERROR: The CANCEL construct cannot be nested inside of a worksharing construct with the NOWAIT clause36 !$omp cancel do37 enddo38!$omp end do39!$omp end parallel40end subroutine41 42subroutine do_nowait243!$omp parallel44!$omp do45 do i=1,246!ERROR: The CANCEL construct cannot be nested inside of a worksharing construct with the NOWAIT clause47 !$omp cancel do48 enddo49!$omp end do nowait50!$omp end parallel51end subroutine52 53subroutine do_ordered54!$omp parallel do ordered55 do i=1,256!ERROR: The CANCEL construct cannot be nested inside of a worksharing construct with the ORDERED clause57 !$omp cancel do58 enddo59!$omp end parallel do60end subroutine61 62subroutine sections_nowait163!$omp parallel64!$omp sections nowait65 !$omp section66!ERROR: The CANCEL construct cannot be nested inside of a worksharing construct with the NOWAIT clause67 !$omp cancel sections68!$omp end sections69!$omp end parallel70end subroutine71 72subroutine sections_nowait273!$omp parallel74!$omp sections75 !$omp section76!ERROR: The CANCEL construct cannot be nested inside of a worksharing construct with the NOWAIT clause77 !$omp cancel sections78!$omp end sections nowait79!$omp end parallel80end subroutine81