20 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenacc -fsyntax-only2 3! Check that loop with force collapse do not break in the semantic step.4subroutine sub3()5 integer :: i, j6 integer, parameter :: n = 100, m = 2007 real, dimension(n, m) :: a8 real, dimension(n) :: bb9 real :: r10 a = 111 r = 012 !$acc parallel loop collapse(force:2) copy(a)13 do i = 1, n14 bb(i) = r15 do j = 1, m16 a(i,j) = r * a(i,j)17 enddo18 enddo19end subroutine20