21 lines · plain
1!RUN: %not_todo_cmd bbc -emit-hlfir -fopenmp -fopenmp-version=52 -o - %s 2>&1 | FileCheck %s2!RUN: %not_todo_cmd %flang_fc1 -emit-hlfir -fopenmp -fopenmp-version=52 -o - %s 2>&1 | FileCheck %s3 4!CHECK: not yet implemented: OMPD_ordered5subroutine f00(x)6 integer :: a(10)7 8 do i = 1, 109 !$omp do ordered(3)10 do j = 1, 1011 do k = 1, 1012 do m = 1, 1013 !$omp ordered doacross(sink: m+1, k+0, j-2)14 a(i) = i15 enddo16 enddo17 enddo18 !$omp end do19 enddo20end21