31 lines · plain
1!RUN: %flang_fc1 -emit-llvm -debug-info-kind=line-tables-only -fopenmp %s -o - | FileCheck %s2 3! Test that this file builds without an error.4 5module debugloc6contains7subroutine test18implicit none9 integer :: i10 real, save :: var11 12! CHECK: DILocation(line: [[@LINE+1]], {{.*}})13!$omp parallel do14do i=1,10015 var = var + 0.116end do17!$omp end parallel do18 19end subroutine test120 21subroutine test222 23real, save :: tp24!$omp threadprivate (tp)25! CHECK: DILocation(line: [[@LINE+1]], {{.*}})26 tp = tp + 127 28end subroutine test229 30end module debugloc31