20 lines · plain
1! RUN: %flang_fc1 -fdebug-unparse-no-sema -fopenmp %s | FileCheck %s2 3program omp_simd4 integer i5 integer, allocatable :: a(:)6 7 allocate(a(10))8 9 !NONTEMPORAL10 !$omp simd nontemporal(a)11 do i = 1, 1012 a(i) = i13 end do14 !$omp end simd15end program omp_simd16!CHECK-LABEL: PROGRAM omp_simd17 18!NONTEMPORAL19!CHECK: !$OMP SIMD NONTEMPORAL(a)20