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
gcc/ChangeLog:
[official-gcc.git]
/
libgomp
/
testsuite
/
libgomp.fortran
/
pr35130.f90
blob
50ff351527abcfe736bf72a333fd1e70d36ebfae
1
! 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