OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
* trans.c (trans_code): Set backend locus early.
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
gomp
/
pr44036-2.f90
1
! PR fortran/44036
2
! { dg-do compile }
3
! { dg-options "-fopenmp" }
4
subroutine foo(a, b)
5
integer, external :: a
6
integer, external, pointer :: b
7
integer, external :: c
8
integer, external, pointer :: d
9
integer :: x
10
d => a
11
!$omp parallel default(none) private (x) firstprivate (b, d)
12
x = a(4)
13
x = b(5)
14
x = c(6)
15
x = d(7)
16
!$omp end parallel
17
end