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
5subroutine 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
21end subroutine
22