flang/test/Lower/OpenMP/Todo/omp-declare-reduction.f90

   1 ! This test checks lowering of OpenMP declare reduction Directive.
   2
   3 // RUN: not flang-new -fc1 -emit-fir -fopenmp %s 2>&1 | FileCheck %s
   4
   5 subroutine declare_red()
   6   integer :: my_var
   7   // CHECK: not yet implemented: OpenMPDeclareReductionConstruct
   8   !$omp declare reduction (my_red : integer : omp_out = omp_in) initializer (omp_priv = 0)
   9   my_var = 0
  10 end subroutine declare_red