diff --git a/flang/test/Integration/debug-loc-1.f90 b/flang/test/Integration/debug-loc-1.f90 index d3ae4c4ca317d8..5fe2c8e31dd9d1 100644 --- a/flang/test/Integration/debug-loc-1.f90 +++ b/flang/test/Integration/debug-loc-1.f90 @@ -1,4 +1,4 @@ -!RUN: %flang_fc1 -emit-llvm -debug-info-kind=line-tables-only -fopenmp %s -o - +!RUN: %flang_fc1 -emit-llvm -debug-info-kind=line-tables-only -fopenmp %s -o - | FileCheck %s ! Test that this file builds without an error. @@ -9,6 +9,7 @@ subroutine test1 integer :: i real, save :: var +! CHECK: DILocation(line: [[@LINE+1]], {{.*}}) !$omp parallel do do i=1,100 var = var + 0.1 @@ -21,6 +22,8 @@ subroutine test2 real, save :: tp !$omp threadprivate (tp) +! CHECK: DILocation(line: [[@LINE+1]], {{.*}}) + tp = tp + 1 end subroutine test2