22 lines
639 B
Fortran
22 lines
639 B
Fortran
! RUN: %flang_fc1 -fdebug-unparse -fopenmp -fopenmp-version=50 %s | FileCheck %s
|
|
|
|
#define OMP_TARGET .true.
|
|
#define OMP_SIMD .false.
|
|
program test
|
|
implicit none
|
|
integer i,j,n
|
|
n = 100
|
|
! CHECK: !$OMP METADIRECTIVE WHEN(USER={CONDITION(.true._4)}: TARGET TEAMS DISTRIBUTE PARALLEL &
|
|
! CHECK: !$OMP&DO) DEFAULT(TARGET TEAMS LOOP)
|
|
!$omp metadirective
|
|
!$omp& when(user={condition(OMP_TARGET.or.OMP_SIMD)}:
|
|
!$omp& target teams distribute parallel do )
|
|
!$omp& default(target teams loop)
|
|
do i=0,n
|
|
do j=0,n
|
|
write(*,*) "Test"
|
|
enddo
|
|
enddo
|
|
return
|
|
end program
|