xref: /openbsd-src/gnu/gcc/libgomp/testsuite/libgomp.fortran/appendix-a/a.33.3.f90 (revision 404b540a9034ac75a6199ad1a32d1bbc7a0d4210) 
1*404b540aSrobert! { dg-do compile }
2*404b540aSrobert
3*404b540aSrobert      FUNCTION NEW_LOCK()
4*404b540aSrobert      USE OMP_LIB       ! or INCLUDE "omp_lib.h"
5*404b540aSrobert        INTEGER(OMP_LOCK_KIND), POINTER :: NEW_LOCK
6*404b540aSrobert!$OMP SINGLE
7*404b540aSrobert          ALLOCATE(NEW_LOCK)
8*404b540aSrobert          CALL OMP_INIT_LOCK(NEW_LOCK)
9*404b540aSrobert!$OMP END SINGLE COPYPRIVATE(NEW_LOCK)
10*404b540aSrobert      END FUNCTION NEW_LOCK
11