1!  Copyright (C) 2005-2018 Free Software Foundation, Inc.
2!  Contributed by Jakub Jelinek <jakub@redhat.com>.
3
4!  This file is part of the GNU Offloading and Multi Processing Library
5!  (libgomp).
6
7!  Libgomp is free software; you can redistribute it and/or modify it
8!  under the terms of the GNU General Public License as published by
9!  the Free Software Foundation; either version 3, or (at your option)
10!  any later version.
11
12!  Libgomp is distributed in the hope that it will be useful, but WITHOUT ANY
13!  WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
14!  FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
15!  more details.
16
17!  Under Section 7 of GPL version 3, you are granted additional
18!  permissions described in the GCC Runtime Library Exception, version
19!  3.1, as published by the Free Software Foundation.
20
21!  You should have received a copy of the GNU General Public License and
22!  a copy of the GCC Runtime Library Exception along with this program;
23!  see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
24!  <http://www.gnu.org/licenses/>.
25
26      integer omp_lock_kind, omp_nest_lock_kind, openmp_version
27      parameter (omp_lock_kind = @OMP_LOCK_KIND@)
28      parameter (omp_nest_lock_kind = @OMP_NEST_LOCK_KIND@)
29      integer omp_sched_kind
30      parameter (omp_sched_kind = 4)
31      integer (omp_sched_kind) omp_sched_static, omp_sched_dynamic
32      integer (omp_sched_kind) omp_sched_guided, omp_sched_auto
33      parameter (omp_sched_static = 1)
34      parameter (omp_sched_dynamic = 2)
35      parameter (omp_sched_guided = 3)
36      parameter (omp_sched_auto = 4)
37      integer omp_proc_bind_kind
38      parameter (omp_proc_bind_kind = 4)
39      integer (omp_proc_bind_kind) omp_proc_bind_false
40      integer (omp_proc_bind_kind) omp_proc_bind_true
41      integer (omp_proc_bind_kind) omp_proc_bind_master
42      integer (omp_proc_bind_kind) omp_proc_bind_close
43      integer (omp_proc_bind_kind) omp_proc_bind_spread
44      parameter (omp_proc_bind_false = 0)
45      parameter (omp_proc_bind_true = 1)
46      parameter (omp_proc_bind_master = 2)
47      parameter (omp_proc_bind_close = 3)
48      parameter (omp_proc_bind_spread = 4)
49      integer omp_lock_hint_kind
50      parameter (omp_lock_hint_kind = 4)
51      integer (omp_lock_hint_kind) omp_lock_hint_none
52      integer (omp_lock_hint_kind) omp_lock_hint_uncontended
53      integer (omp_lock_hint_kind) omp_lock_hint_contended
54      integer (omp_lock_hint_kind) omp_lock_hint_nonspeculative
55      integer (omp_lock_hint_kind) omp_lock_hint_speculative
56      parameter (omp_lock_hint_none = 0)
57      parameter (omp_lock_hint_uncontended = 1)
58      parameter (omp_lock_hint_contended = 2)
59      parameter (omp_lock_hint_nonspeculative = 4)
60      parameter (omp_lock_hint_speculative = 8)
61      parameter (openmp_version = 201511)
62
63      external omp_init_lock, omp_init_nest_lock
64      external omp_init_lock_with_hint
65      external omp_init_nest_lock_with_hint
66      external omp_destroy_lock, omp_destroy_nest_lock
67      external omp_set_lock, omp_set_nest_lock
68      external omp_unset_lock, omp_unset_nest_lock
69      external omp_set_dynamic, omp_set_nested
70      external omp_set_num_threads
71
72      external omp_get_dynamic, omp_get_nested
73      logical(4) omp_get_dynamic, omp_get_nested
74      external omp_test_lock, omp_in_parallel
75      logical(4) omp_test_lock, omp_in_parallel
76
77      external omp_get_max_threads, omp_get_num_procs
78      integer(4) omp_get_max_threads, omp_get_num_procs
79      external omp_get_num_threads, omp_get_thread_num
80      integer(4) omp_get_num_threads, omp_get_thread_num
81      external omp_test_nest_lock
82      integer(4) omp_test_nest_lock
83
84      external omp_get_wtick, omp_get_wtime
85      double precision omp_get_wtick, omp_get_wtime
86
87      external omp_set_schedule, omp_get_schedule
88      external omp_get_thread_limit, omp_set_max_active_levels
89      external omp_get_max_active_levels, omp_get_level
90      external omp_get_ancestor_thread_num, omp_get_team_size
91      external omp_get_active_level
92      integer(4) omp_get_thread_limit, omp_get_max_active_levels
93      integer(4) omp_get_level, omp_get_ancestor_thread_num
94      integer(4) omp_get_team_size, omp_get_active_level
95
96      external omp_in_final
97      logical(4) omp_in_final
98
99      external omp_get_cancelllation
100      logical(4) omp_get_cancelllation
101
102      external omp_get_proc_bind
103      integer(omp_proc_bind_kind) omp_get_proc_bind
104
105      integer(4) omp_get_num_places
106      external omp_get_num_places
107      integer(4) omp_get_place_num_procs
108      external omp_get_place_num_procs
109      external omp_get_place_proc_ids
110      integer(4) omp_get_place_num
111      external omp_get_place_num
112      integer(4) omp_get_partition_num_places
113      external omp_get_partition_num_places
114      external omp_get_partition_place_nums
115
116      external omp_set_default_device, omp_get_default_device
117      external omp_get_num_devices, omp_get_num_teams
118      external omp_get_team_num
119      integer(4) omp_get_default_device, omp_get_num_devices
120      integer(4) omp_get_num_teams, omp_get_team_num
121
122      external omp_is_initial_device
123      logical(4) omp_is_initial_device
124      external omp_get_initial_device
125      integer(4) omp_get_initial_device
126
127      external omp_get_max_task_priority
128      integer(4) omp_get_max_task_priority
129