1! { dg-do compile }
2!
3! PR fortran/55197
4!
5! Contributed by Erik Toussaint
6!
7
8use, intrinsic :: omp_lib, only: omp_get_num_threads
9use, intrinsic :: omp_lib_kinds , foo => omp_lock_kind
10print *, foo
11end
12