15 lines · plain
1! This test checks lowering of OpenMP do simd linear() pragma2 3! RUN: %not_todo_cmd bbc -emit-fir -fopenmp -o - %s 2>&1 | FileCheck %s4! RUN: %not_todo_cmd %flang_fc1 -emit-fir -fopenmp -o - %s 2>&1 | FileCheck %s5subroutine testDoSimdLinear(int_array)6 integer :: int_array(:)7!CHECK: not yet implemented: Unhandled clause LINEAR in SIMD construct8!$omp do simd linear(int_array)9 do index_ = 1, 1010 end do11!$omp end do simd12 13end subroutine testDoSimdLinear14 15