1! PR fortran/40878
2! { dg-do compile }
3! { dg-options "-fopenmp" }
4
5subroutine test1
6  integer :: j, k
7  integer, parameter :: m = 2
8!$omp parallel do collapse(m) schedule (static,1)
9  do k = 1, 2
10    do j = 1, 6
11    enddo
12  enddo
13!$omp end parallel do
14end
15subroutine test2
16  integer :: j, k
17!$omp parallel do collapse(2) schedule (static,1)
18  do k = 1, 2
19    do j = 1, 6
20    enddo
21  enddo
22!$omp end parallel do
23end
24