forked from OSchip/llvm-project
20 lines
348 B
Fortran
20 lines
348 B
Fortran
! 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)
|