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
/
appendix-a
/
a.38.1.f90
blob
55541303cea83f090316a92c9414725fd8de307a
1
! { dg-do compile }
2
3
FUNCTION
NEW_LOCKS
()
4
USE
OMP_LIB
! or INCLUDE "omp_lib.h"
5
INTEGER
(
OMP_LOCK_KIND
),
DIMENSION
(
1000
) ::
NEW_LOCKS
6
INTEGER
I
7
!$OMP PARALLEL DO PRIVATE(I)
8
DO
I
=
1
,
1000
9
CALL
OMP_INIT_LOCK
(
NEW_LOCKS
(
I
))
10
END DO
11
!$OMP END PARALLEL DO
12
END FUNCTION
NEW_LOCKS