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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [pr40878-2.f90] - Blame information for rev 694

Details | Compare with Previous | View Log


! PR fortran/40878
! { dg-do compile }
! { dg-options "-fopenmp" }
 
subroutine test1
  integer :: j, k
  integer, parameter :: m = 2
!$omp parallel do collapse(m) schedule (static,1)
  do k = 1, 2
    do j = 1, 6
    enddo
  enddo
!$omp end parallel do
end
subroutine test2
  integer :: j, k
!$omp parallel do collapse(2) schedule (static,1)
  do k = 1, 2
    do j = 1, 6
    enddo
  enddo
!$omp end parallel do
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! PR fortran/40878`
2			`! { dg-do compile }`
3			`! { dg-options "-fopenmp" }`
4
5			`subroutine test1`
6			`integer :: j, k`
7			`integer, parameter :: m = 2`
8			`!$omp parallel do collapse(m) schedule (static,1)`
9			`do k = 1, 2`
10			`do j = 1, 6`
11			`enddo`
12			`enddo`
13			`!$omp end parallel do`
14			`end`
15			`subroutine test2`
16			`integer :: j, k`
17			`!$omp parallel do collapse(2) schedule (static,1)`
18			`do k = 1, 2`
19			`do j = 1, 6`
20			`enddo`
21			`enddo`
22			`!$omp end parallel do`
23			`end`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [pr40878-2.f90] - Blame information for rev 694