| ! 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 |