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