flang/test/Parser/OpenMP/if-clause-unparse.f90

   1 ! RUN: %flang_fc1 -fdebug-unparse-no-sema -fopenmp %s | FileCheck %s
   2 ! Check Unparsing of OpenMP IF clause
   3
   4 program if_unparse
   5   logical :: cond
   6   integer :: i
   7
   8   ! CHECK: !$OMP TARGET UPDATE
   9   ! CHECK-SAME: IF(cond)
  10   !$omp target update if(cond)
  11
  12   ! CHECK: !$OMP TARGET UPDATE
  13   ! CHECK-SAME: IF(TARGET UPDATE: cond)
  14   !$omp target update if(target update: cond)
  15
  16   ! CHECK: !$OMP TARGET UPDATE
  17   ! CHECK-SAME: IF(TARGET UPDATE: cond)
  18   !$omp target update if(targetupdate: cond)
  19
  20   ! CHECK: !$OMP TARGET ENTER DATA
  21   ! 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 DATA
  25   ! 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 DATA
  29   ! CHECK-SAME: IF(TARGET DATA: cond)
  30   !$omp target data map(tofrom: i) if(target data: cond)
  31   !$omp end target data
  32
  33   ! CHECK: !$OMP TARGET
  34   ! CHECK-SAME: IF(TARGET: cond)
  35   !$omp target if(target: cond)
  36   !$omp end target
  37
  38   ! CHECK: !$OMP TEAMS
  39   ! CHECK-SAME: IF(TEAMS: cond)
  40   !$omp teams if(teams: cond)
  41   !$omp end teams
  42
  43   ! CHECK: !$OMP PARALLEL DO SIMD
  44   ! 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, 10
  47   end do
  48   !$omp end parallel do simd
  49
  50   ! CHECK: !$OMP TASK
  51   ! CHECK-SAME: IF(TASK: cond)
  52   !$omp task if(task: cond)
  53   !$omp end task
  54
  55   ! CHECK: !$OMP TASKLOOP
  56   ! CHECK-SAME: IF(TASKLOOP: cond)
  57   !$omp taskloop if(taskloop: cond)
  58   do i = 1, 10
  59   end do
  60   !$omp end taskloop
  61 end program if_unparse