54 lines · plain
1!RUN: %flang_fc1 -fdebug-unparse -fopenmp %s | FileCheck %s2 3! CHECK: SUBROUTINE parallel4subroutine parallel5! CHECK: !$OMP PARALLEL6 !$omp parallel7! CHECK: !$OMP CANCEL PARALLEL8 !$omp cancel parallel9! CHECK: !$OMP END PARALLEL10 !$omp end parallel11! CHECK: END SUBROUTINE12end subroutine13 14! CHECK: SUBROUTINE sections15subroutine sections16! CHECK: !$OMP PARALLEL SECTIONS17 !$omp parallel sections18! CHECK: !$OMP CANCEL SECTIONS19 !$omp cancel sections20! CHECK: !$OMP END PARALLEL SECTIONS21 !$omp end parallel sections22! CHECK: END SUBROUTINE23end subroutine24 25! CHECK: SUBROUTINE loop26subroutine loop27! CHECK: !$OMP PARALLEL DO28 !$omp parallel do29! CHECK: DO i=1_4,10_430 do i=1,1031! CHECK: !$OMP CANCEL DO32 !$omp cancel do33! CHECK: END DO34 enddo35! CHECK: !$OMP END PARALLEL DO36 !$omp end parallel do37! CHECK: END SUBROUTINE38end subroutine39 40! CHECK: SUBROUTINE taskgroup41subroutine taskgroup42! CHECK: !$OMP TASKGROUP43 !$omp taskgroup44! CHECK: !$OMP TASK45 !$omp task46! CHECK: !$OMP CANCEL TASKGROUP47 !$omp cancel taskgroup48! CHECK: !$OMP END TASK49 !$omp end task50! CHECK: !$OMP END TASKGROUP51 !$omp end taskgroup52! CHECK: END SUBROUTINE53end subroutine54