URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [pr33439.f90] - Rev 484
Go to most recent revision | Compare with Previous | Blame | View Log
! 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
Go to most recent revision | Compare with Previous | Blame | View Log