projects
/
gcc.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Daily bump.
[gcc.git]
/
libgomp
/
testsuite
/
libgomp.fortran
/
pr49792-1.f90
1
! PR fortran/49792
2
! { dg-do run }
3
4
subroutine reverse(n, a)
5
integer :: n
6
real(kind=8) :: a(n)
7
!$omp parallel workshare
8
a(:) = a(n:1:-1)
9
!$omp end parallel workshare
10
end subroutine reverse
11
12
program pr49792
13
real(kind=8) :: a(16) = [1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16]
14
real(kind=8) :: b(16)
15
b(:) = a(16:1:-1)
16
call reverse (16,a)
17
if (any (a.ne.b)) stop 1
18
end program pr49792