| ! 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 |