| !RUN: %flang_fc1 -emit-llvm -debug-info-kind=line-tables-only -fopenmp %s -o - | FileCheck %s |
| |
| ! Test that this file builds without an error. |
| |
| module debugloc |
| contains |
| subroutine test1 |
| implicit none |
| integer :: i |
| real, save :: var |
| |
| ! CHECK: DILocation(line: [[@LINE+1]], {{.*}}) |
| !$omp parallel do |
| do i=1,100 |
| var = var + 0.1 |
| end do |
| !$omp end parallel do |
| |
| end subroutine test1 |
| |
| subroutine test2 |
| |
| real, save :: tp |
| !$omp threadprivate (tp) |
| ! CHECK: DILocation(line: [[@LINE+1]], {{.*}}) |
| tp = tp + 1 |
| |
| end subroutine test2 |
| |
| end module debugloc |
