repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
RISC-V: Add missing mode_idx for vrol and vror
[official-gcc.git]
/
libgomp
/
testsuite
/
libgomp.fortran
/
pr93553.f90
blob
5d6f10febed7dfaa00ee365bc8db0c48ab82b8cd
1
program
p
2
implicit none
3
integer
::
x
(
8
) =
0
4
call
sub
(
x
)
5
end
6
subroutine
sub
(
x
)
7
implicit none
8
integer
i
9
integer
::
x
(
8
)
10
integer
::
c
(
8
) = [(
11
*
i
,
i
=
1
,
8
)]
11
call
s
12
if
(
any
(
x
/=
c
))
stop
1
13
contains
14
subroutine
s
15
integer
::
i
16
!$omp parallel do reduction(+:x)
17
do
i
=
1
,
8
18
x
(
i
) =
c
(
i
)
19
end do
20
end
21
end