blob: f7db7593d77a3b004dad4392b9689a7f04e10aeb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
! PR fortran/33439
! { dg-do compile }
! { dg-options "-fopenmp" }
subroutine pr33439_1
integer :: s, i
s = 4
!$omp parallel default(none) ! { dg-error "enclosing parallel" }
call somethingelse
!$omp do schedule(static, s) ! { dg-error "not specified in enclosing parallel" }
do i = 1, 8
call something
end do
!$omp end do
!$omp end parallel
end subroutine pr33439_1
subroutine pr33439_2
integer :: s, i
s = 4
!$omp parallel default(none) ! { dg-error "enclosing parallel" }
!$omp do schedule(static, s) ! { dg-error "not specified in enclosing parallel" }
do i = 1, 8
call something
end do
!$omp end do
!$omp end parallel
end subroutine pr33439_2
subroutine pr33439_3
integer :: s, i
s = 4
!$omp parallel do default(none) schedule(static, s) ! { dg-error "enclosing parallel" }
do i = 1, 8
call something
end do
!$omp end parallel do
end subroutine pr33439_3
|
