blob: c87bf038e9672154b4004e23c3b16a70fbffa786 [file] [log] [blame]
! This test checks location of OpenMP constructs and clauses
!RUN: %flang_fc1 -emit-hlfir -fopenmp -mmlir --mlir-print-debuginfo %s -o - | FileCheck %s
!CHECK-LABEL: sub_parallel
subroutine sub_parallel()
print *, x
!CHECK: omp.parallel {
!$omp parallel
print *, x
!CHECK: omp.terminator loc(#[[PAR_LOC:.*]])
!CHECK: } loc(#[[PAR_LOC]])
!$omp end parallel
print *, x
end
!CHECK-LABEL: sub_target
subroutine sub_target()
print *, x
!CHECK: omp.target {
!$omp target
print *, x
!CHECK: omp.terminator loc(#[[TAR_LOC:.*]])
!CHECK: } loc(#[[TAR_LOC]])
!$omp end target
print *, x
end
!CHECK-LABEL: sub_loop
subroutine sub_loop()
!CHECK: omp.wsloop {{.*}} {
!$omp do
do i=1,10
print *, i
!CHECK: omp.yield loc(#[[LOOP_LOC:.*]])
!CHECK: } loc(#[[LOOP_LOC]])
end do
!$omp end do
end
!CHECK-LABEL: sub_standalone
subroutine sub_standalone()
!CHECK: omp.barrier loc(#[[BAR_LOC:.*]])
!$omp barrier
!CHECK: omp.taskwait loc(#[[TW_LOC:.*]])
!$omp taskwait
!CHECK: omp.taskyield loc(#[[TY_LOC:.*]])
!$omp taskyield
end
subroutine sub_if(c)
logical(kind=4) :: c
!CHECK: %[[CVT:.*]] = fir.convert %{{.*}} : (!fir.logical<4>) -> i1 loc(#[[IF_LOC:.*]])
!CHECK: omp.task if(%[[CVT]])
!$omp task if(c)
print *, "Task"
!$omp end task
!CHECK: } loc(#[[TASK_LOC:.*]])
end subroutine
!CHECK: #[[PAR_LOC]] = loc("{{.*}}location.f90":9:9)
!CHECK: #[[TAR_LOC]] = loc("{{.*}}location.f90":21:9)
!CHECK: #[[LOOP_LOC]] = loc("{{.*}}location.f90":32:9)
!CHECK: #[[BAR_LOC]] = loc("{{.*}}location.f90":44:9)
!CHECK: #[[TW_LOC]] = loc("{{.*}}location.f90":46:9)
!CHECK: #[[TY_LOC]] = loc("{{.*}}location.f90":48:9)
!CHECK: #[[IF_LOC]] = loc("{{.*}}location.f90":55:14)
!CHECK: #[[TASK_LOC]] = loc("{{.*}}location.f90":55:9)