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