| ! { 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 |