! 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