29 lines · plain
1! RUN: %flang_fc1 -fopenmp -emit-llvm -debug-info-kind=standalone %s -o - | FileCheck %s2 3! Test that variables inside OpenMP target region don't cause build failure.4subroutine test15 implicit none6 real, allocatable :: xyz(:)7 integer :: i8 9 !$omp target simd map(from:xyz)10 do i = 1, size(xyz)11 xyz(i) = 5.0 * xyz(i)12 end do13end subroutine14 15subroutine test2 (xyz)16 integer :: i17 integer :: xyz(:)18 19 !$omp target map(from:xyz)20 !$omp do private(xyz)21 do i = 1, 1022 xyz(i) = i23 end do24 !$omp end target25end subroutine26 27!CHECK: DISubprogram(name: "test1"{{.*}})28!CHECK: DISubprogram(name: "test2"{{.*}})29