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