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