2 Copyright 1988-2022 Free Software Foundation, Inc.
3 This is part of the GCC manual.
4 For copying conditions, see the copyright.rst file.
8 omp_init_lock -- Initialize simple lock
9 ***************************************
12 Initialize a simple lock. After initialization, the lock is in
19 - ``void omp_init_lock(omp_lock_t *lock);``
25 - ``subroutine omp_init_lock(svar)``
27 - ``integer(omp_lock_kind), intent(out) :: svar``
30 :ref:`omp_destroy_lock`
33 :openmp:`4.5`, Section 3.3.1.