62 lines · plain
1! RUN: %flang_fc1 -fdebug-unparse-no-sema -fopenmp %s | FileCheck %s2! Check Unparsing of OpenMP IF clause3 4program if_unparse5 logical :: cond6 integer :: i7 8 ! CHECK: !$OMP TARGET UPDATE9 ! CHECK-SAME: IF(cond)10 !$omp target update if(cond)11 12 ! CHECK: !$OMP TARGET UPDATE13 ! CHECK-SAME: IF(TARGET UPDATE: cond)14 !$omp target update if(target update: cond)15 16 ! CHECK: !$OMP TARGET UPDATE17 ! CHECK-SAME: IF(TARGET UPDATE: cond)18 !$omp target update if(targetupdate: cond)19 20 ! CHECK: !$OMP TARGET ENTER DATA21 ! CHECK-SAME: IF(TARGET ENTER DATA: cond)22 !$omp target enter data map(to: i) if(target enter data: cond)23 24 ! CHECK: !$OMP TARGET EXIT DATA25 ! CHECK-SAME: IF(TARGET EXIT DATA: cond)26 !$omp target exit data map(from: i) if(target exit data: cond)27 28 ! CHECK: !$OMP TARGET DATA29 ! CHECK-SAME: IF(TARGET DATA: cond)30 !$omp target data map(tofrom: i) if(target data: cond)31 !$omp end target data32 33 ! CHECK: !$OMP TARGET34 ! CHECK-SAME: IF(TARGET: cond)35 !$omp target if(target: cond)36 !$omp end target37 38 ! CHECK: !$OMP TEAMS39 ! CHECK-SAME: IF(TEAMS: cond)40 !$omp teams if(teams: cond)41 !$omp end teams42 43 ! CHECK: !$OMP PARALLEL DO SIMD44 ! CHECK-SAME: IF(PARALLEL: i<10) IF(SIMD: .FALSE.)45 !$omp parallel do simd if(parallel: i < 10) if(simd: .false.)46 do i = 1, 1047 end do48 !$omp end parallel do simd49 50 ! CHECK: !$OMP TASK51 ! CHECK-SAME: IF(TASK: cond)52 !$omp task if(task: cond)53 !$omp end task54 55 ! CHECK: !$OMP TASKLOOP56 ! CHECK-SAME: IF(TASKLOOP: cond)57 !$omp taskloop if(taskloop: cond)58 do i = 1, 1059 end do60 !$omp end taskloop61end program if_unparse62