OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [pr33439.f90] - Blame information for rev 578

Go to most recent revision | Details | Compare with Previous | View Log

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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.