flang/test/Integration/debug-loc-1.f90

   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
   5 module debugloc
   6 contains
   7 subroutine test1
   8 implicit none
   9  integer :: i
  10  real, save :: var
  11
  12 ! CHECK: DILocation(line: [[@LINE+1]], {{.*}})
  13 !$omp parallel do
  14 do i=1,100
  15   var = var + 0.1
  16 end do
  17 !$omp end parallel do
  18
  19 end subroutine test1
  20
  21 subroutine test2
  22
  23 real, save :: tp
  24 !$omp threadprivate (tp)
  25 ! CHECK: DILocation(line: [[@LINE+1]], {{.*}})
  26   tp = tp + 1
  27
  28 end subroutine test2
  29
  30 end module debugloc