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
Merge from mainline
[official-gcc.git]
/
libgomp
/
testsuite
/
libgomp.fortran
/
pr25219.f90
blob
7fe1a53aa1c1f05311d9ade93bb50feaffcdcc7d
1
! PR fortran/25219
2
3
implicit none
4
save
5
integer
::
i
,
k
6
k
=
3
7
!$omp parallel
8
!$omp do lastprivate (k)
9
do
i
=
1
,
100
10
k
=
i
11
end do
12
!$omp end do
13
!$omp end parallel
14
if
(
k
.
ne
.
100
)
call
abort
15
end