22 lines · plain
1!RUN: %flang_fc1 -emit-hlfir -fopenmp -fopenmp-version=60 %s -o - | FileCheck %s2 3! Check that this compiles successfully, but not rely on any specific output.4 5!CHECK: omp.parallel6 7program omp_cdir_crash8 implicit none9 integer, parameter :: n = 1010 real :: a(n)11 integer :: i12 13!$omp parallel do14!dir$ unroll15 do i = 1, n16 a(i) = real(i)17 end do18!$omp end parallel do19 20 print *, 'a(1)=', a(1), ' a(n)=', a(n)21end program omp_cdir_crash22