1! PR fortran/45595 2! { dg-do compile } 3! { dg-options "-fopenmp" } 4 5subroutine foo(l,u) 6 integer :: k,l,u 7 !$omp parallel do shared(l,u) collapse(3) ! { dg-error "not enough DO loops" } 8 do k = l,u 9 end do 10end subroutine 11