1! RUN: %flang_fc1 -fopenmp -emit-llvm -debug-info-kind=standalone %s -o - | FileCheck %s 2 3! Test that variables inside OpenMP target region don't cause build failure. 4subroutine test1 5 implicit none 6 real, allocatable :: xyz(:) 7 integer :: i 8 9 !$omp target simd map(from:xyz) 10 do i = 1, size(xyz) 11 xyz(i) = 5.0 * xyz(i) 12 end do 13end subroutine 14 15subroutine test2 (xyz) 16 integer :: i 17 integer :: xyz(:) 18 19 !$omp target map(from:xyz) 20 !$omp do private(xyz) 21 do i = 1, 10 22 xyz(i) = i 23 end do 24 !$omp end target 25end subroutine 26 27!CHECK: DISubprogram(name: "test1"{{.*}}) 28!CHECK: DISubprogram(name: "test2"{{.*}}) 29