URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 273 |
Rev 519 |
! PR middle-end/35130
|
! PR middle-end/35130
|
|
|
program pr35130
|
program pr35130
|
implicit none
|
implicit none
|
real, dimension(20) :: a
|
real, dimension(20) :: a
|
integer :: k
|
integer :: k
|
a(:) = 0.0
|
a(:) = 0.0
|
!$omp parallel do private(k)
|
!$omp parallel do private(k)
|
do k=1,size(a)
|
do k=1,size(a)
|
call inner(k)
|
call inner(k)
|
end do
|
end do
|
!$omp end parallel do
|
!$omp end parallel do
|
if (any (a.ne.42)) call abort
|
if (any (a.ne.42)) call abort
|
contains
|
contains
|
subroutine inner(i)
|
subroutine inner(i)
|
implicit none
|
implicit none
|
integer :: i
|
integer :: i
|
a(i) = 42
|
a(i) = 42
|
end subroutine inner
|
end subroutine inner
|
end program pr35130
|
end program pr35130
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.