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
4 ! CHECK: not yet implemented: Reduction of some types is not supported
5 subroutine reduction_array(y
)
6 integer :: x(100), y(100,100)
8 !$omp do reduction(+:x)