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 13