1!RUN: %flang_fc1 -emit-llvm -debug-info-kind=line-tables-only -fopenmp %s -o - | FileCheck %s 2 3! Test that this file builds without an error. 4 5module debugloc 6contains 7subroutine test1 8implicit none 9 integer :: i 10 real, save :: var 11 12! CHECK: DILocation(line: [[@LINE+1]], {{.*}}) 13!$omp parallel do 14do i=1,100 15 var = var + 0.1 16end do 17!$omp end parallel do 18 19end subroutine test1 20 21subroutine test2 22 23real, save :: tp 24!$omp threadprivate (tp) 25! CHECK: DILocation(line: [[@LINE+1]], {{.*}}) 26 tp = tp + 1 27 28end subroutine test2 29 30end module debugloc 31