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]
/
gcc
/
testsuite
/
gfortran.dg
/
gomp
/
appendix-a
/
a.26.2.f90
blob
97c14d945d1ddeb8fea116aa239ec712bf3044d6
1
! { dg-do compile }
2
3
MODULE
A26_2
4
REAL
A
5
CONTAINS
6
SUBROUTINE
G
(
K
)
7
REAL
K
8
A
=
K
! This is A in module A26_2, not the private
9
! A in F
10
END SUBROUTINE
G
11
SUBROUTINE
F
(
N
)
12
INTEGER
N
13
REAL
A
14
INTEGER
I
15
!$OMP PARALLEL DO PRIVATE(A)
16
DO
I
=
1
,
N
17
A
=
I
18
CALL
G
(
A
*
2
)
19
ENDDO
20
!$OMP END PARALLEL DO
21
END SUBROUTINE
F
22
END MODULE
A26_2