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

Subversion Repositories openrisc

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

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


! PR middle-end/35130
 
program pr35130
  implicit none
  real, dimension(20) :: a
  integer :: k
  a(:) = 0.0
!$omp parallel do private(k)
  do k=1,size(a)
    call inner(k)
  end do
!$omp end parallel do
  if (any (a.ne.42)) call abort
contains
 subroutine inner(i)
   implicit none
   integer :: i
   a(i) = 42
 end subroutine inner
end program pr35130

Line No.	Rev	Author	Line
1	735	jeremybenn	`! PR middle-end/35130`
2
3			`program pr35130`
4			`implicit none`
5			`real, dimension(20) :: a`
6			`integer :: k`
7			`a(:) = 0.0`
8			`!$omp parallel do private(k)`
9			`do k=1,size(a)`
10			`call inner(k)`
11			`end do`
12			`!$omp end parallel do`
13			`if (any (a.ne.42)) call abort`
14			`contains`
15			`subroutine inner(i)`
16			`implicit none`
17			`integer :: i`
18			`a(i) = 42`
19			`end subroutine inner`
20			`end program pr35130`

Browse

Tools

Subversion Repositories openrisc

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