22 lines · plain
1! RUN: %flang_fc1 -fdebug-unparse -fopenmp -fopenmp-version=50 %s | FileCheck %s2 3#define OMP_TARGET .true.4#define OMP_SIMD .false.5 program test6 implicit none7 integer i,j,n8 n = 1009! CHECK: !$OMP METADIRECTIVE WHEN(USER={CONDITION(.true._4)}: TARGET TEAMS DISTRIBUTE PARALLEL &10! CHECK: !$OMP&DO) DEFAULT(TARGET TEAMS LOOP)11!$omp metadirective12!$omp& when(user={condition(OMP_TARGET.or.OMP_SIMD)}:13!$omp& target teams distribute parallel do )14!$omp& default(target teams loop)15 do i=0,n16 do j=0,n17 write(*,*) "Test"18 enddo19 enddo20 return21 end program22