11 lines
379 B
Fortran
11 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
|