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

Subversion Repositories openrisc

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

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


! PR fortran/25219
 
  implicit none
  save
  integer :: i, k
  k = 3
!$omp parallel
!$omp do lastprivate (k)
  do i = 1, 100
    k = i
  end do
!$omp end do
!$omp end parallel
  if (k .ne. 100) call abort
end

Line No.	Rev	Author	Line
1	735	jeremybenn	`! PR fortran/25219`
2
3			`implicit none`
4			`save`
5			`integer :: i, k`
6			`k = 3`
7			`!$omp parallel`
8			`!$omp do lastprivate (k)`
9			`do i = 1, 100`
10			`k = i`
11			`end do`
12			`!$omp end do`
13			`!$omp end parallel`
14			`if (k .ne. 100) call abort`
15			`end`

Browse

Tools

Subversion Repositories openrisc

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