16 lines · plain
1! Testing the Semantics of tile2!RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=513 4 5subroutine do_concurrent6 implicit none7 integer i, j8 9 10 !$omp tile sizes(2,2)11 !ERROR: DO CONCURRENT loops cannot form part of a loop nest.12 do concurrent (i = 1:42, j = 1:42)13 print *, i, j14 end do15end subroutine16