1! { dg-do compile }
2
3      FUNCTION NEW_LOCK()
4      USE OMP_LIB       ! or INCLUDE "omp_lib.h"
5        INTEGER(OMP_LOCK_KIND), POINTER :: NEW_LOCK
6!$OMP SINGLE
7          ALLOCATE(NEW_LOCK)
8          CALL OMP_INIT_LOCK(NEW_LOCK)
9!$OMP END SINGLE COPYPRIVATE(NEW_LOCK)
10      END FUNCTION NEW_LOCK
11