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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libgomp/] [testsuite/] [libgomp.fortran/] [pr27416-1.f90] - Blame information for rev 801

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


! PR middle-end/27416
! { dg-do run }
 
  integer :: j
  j = 6
!$omp parallel num_threads (4)
  call foo (j)
!$omp end parallel
  if (j.ne.6+16) call abort
end
 
subroutine foo (j)
  integer :: i, j
 
!$omp do firstprivate (j) lastprivate (j)
  do i = 1, 16
    if (i.eq.16) j = j + i
  end do
end subroutine foo

Line No.	Rev	Author	Line
1	735	jeremybenn	`! PR middle-end/27416`
2			`! { dg-do run }`
3
4			`integer :: j`
5			`j = 6`
6			`!$omp parallel num_threads (4)`
7			`call foo (j)`
8			`!$omp end parallel`
9			`if (j.ne.6+16) call abort`
10			`end`
11
12			`subroutine foo (j)`
13			`integer :: i, j`
14
15			`!$omp do firstprivate (j) lastprivate (j)`
16			`do i = 1, 16`
17			`if (i.eq.16) j = j + i`
18			`end do`
19			`end subroutine foo`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libgomp/] [testsuite/] [libgomp.fortran/] [pr27416-1.f90] - Blame information for rev 801