flang/test/Lower/OpenMP/Todo/reduction-allocatable.f90

   1 ! RUN: %not_todo_cmd bbc -emit-fir -fopenmp -o - %s 2>&1 | FileCheck %s
   2 ! RUN: %not_todo_cmd %flang_fc1 -emit-fir -fopenmp -o - %s 2>&1 | FileCheck %s
   3
   4 ! CHECK: not yet implemented: Reduction of some types is not supported
   5 subroutine reduction_allocatable
   6   integer, allocatable :: x
   7   integer :: i = 1
   8
   9   allocate(x)
  10   x = 0
  11
  12   !$omp parallel num_threads(4)
  13   !$omp do reduction(+:x)
  14   do i = 1, 10
  15     x = x + i
  16   enddo
  17   !$omp end do
  18   !$omp end parallel
  19
  20   print *, x
  21 end subroutine