! RUN: %flang_fc1 -fdebug-unparse-no-sema -fopenmp %s | FileCheck %s
program omp_simd
integer i
integer, allocatable :: a(:)
allocate(a(10))
!NONTEMPORAL
!$omp simd nontemporal(a)
do i = 1, 10
a(i) = i
end do
!$omp end simd
end program omp_simd
!CHECK-LABEL: PROGRAM omp_simd
!NONTEMPORAL
!CHECK: !$OMP SIMD NONTEMPORAL(a)