diff options
Diffstat (limited to 'gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/appendix-a/a.38.1.f90')
| -rw-r--r-- | gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/appendix-a/a.38.1.f90 | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/appendix-a/a.38.1.f90 b/gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/appendix-a/a.38.1.f90 deleted file mode 100644 index 55541303c..000000000 --- a/gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/appendix-a/a.38.1.f90 +++ /dev/null @@ -1,12 +0,0 @@ -! { dg-do compile } - - FUNCTION NEW_LOCKS() - USE OMP_LIB ! or INCLUDE "omp_lib.h" - INTEGER(OMP_LOCK_KIND), DIMENSION(1000) :: NEW_LOCKS - INTEGER I -!$OMP PARALLEL DO PRIVATE(I) - DO I=1,1000 - CALL OMP_INIT_LOCK(NEW_LOCKS(I)) - END DO -!$OMP END PARALLEL DO - END FUNCTION NEW_LOCKS |