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
testsuite: Fix recent regression of g++.dg/other/sse2-pr85572-1.C
[official-gcc.git]
/
libgomp
/
testsuite
/
libgomp.fortran
/
pr35130.f90
blob
05d00a67ee120bf98dba8724f76f1e32b6e10abf
1
! { dg-do run }
2
! PR middle-end/35130
3
4
program
pr35130
5
implicit none
6
real
,
dimension
(
20
) ::
a
7
integer
::
k
8
a
(:) =
0.0
9
!$omp parallel do private(k)
10
do
k
=
1
,
size
(
a
)
11
call
inner
(
k
)
12
end do
13
!$omp end parallel do
14
if
(
any
(
a
.
ne
.42
))
stop
1
15
contains
16
subroutine
inner
(
i
)
17
implicit none
18
integer
::
i
19
a
(
i
) =
42
20
end subroutine
inner
21
end program
pr35130