OpenCores
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.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [do-1.f90] - Blame information for rev 154

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 149 jeremybenn
! { dg-do compile }
2
! { dg-options "-O -fopenmp -fdump-tree-omplower" }
3
 
4
subroutine foo (i, j, k, s, a)
5
  integer :: i, j, k, s, a(100), l
6
!$omp parallel do schedule (dynamic, s * 2)
7
  do 100, l = j, k
8
100 a(l) = i
9
!$omp parallel do schedule (dynamic, s * 2)
10
  do 101, l = j, k, 3
11
101 a(l) = i + 1
12
end subroutine foo
13
 
14
subroutine bar (i, j, k, s, a)
15
  integer :: i, j, k, s, a(100), l
16
!$omp parallel do schedule (guided, s * 2)
17
  do 100, l = j, k
18
100 a(l) = i
19
!$omp parallel do schedule (guided, s * 2)
20
  do 101, l = j, k, 3
21
101 a(l) = i + 1
22
end subroutine bar
23
 
24
! { dg-final { scan-tree-dump-times "GOMP_parallel_loop_dynamic_start" 2 "omplower" { xfail *-*-* } } }
25
! { dg-final { scan-tree-dump-times "GOMP_parallel_loop_guided_start" 2 "omplower" { xfail *-*-* } } }
26
! { dg-final { cleanup-tree-dump "omplower" } }

powered by: WebSVN 2.1.0

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