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
C++: simplify output from suggest_alternatives_for
[official-gcc.git]
/
libgomp
/
testsuite
/
libgomp.fortran
/
pr27416-1.f90
blob
7bc5d3e78c8b7e2385958a8ef25ab619aca7b42e
1
! PR middle-end/27416
2
! { dg-do run }
3
4
integer
::
j
5
j
=
6
6
!$omp parallel num_threads (4)
7
call
foo
(
j
)
8
!$omp end parallel
9
if
(
j
.
ne
.6
+
16
)
STOP
1
10
end
11
12
subroutine
foo
(
j
)
13
integer
::
i
,
j
14
15
!$omp do firstprivate (j) lastprivate (j)
16
do
i
=
1
,
16
17
if
(
i
.
eq
.16
)
j
=
j
+
i
18
end do
19
end subroutine
foo