diff options
| -rw-r--r-- | openmp/runtime/src/include/45/omp_lib.f90.var | 6 | ||||
| -rw-r--r-- | openmp/runtime/src/include/45/omp_lib.h.var | 6 |
2 files changed, 6 insertions, 6 deletions
diff --git a/openmp/runtime/src/include/45/omp_lib.f90.var b/openmp/runtime/src/include/45/omp_lib.f90.var index fcae9bce7f1..0e97d579b64 100644 --- a/openmp/runtime/src/include/45/omp_lib.f90.var +++ b/openmp/runtime/src/include/45/omp_lib.f90.var @@ -197,7 +197,7 @@ subroutine omp_get_place_proc_ids(place_num, ids) bind(c) use omp_lib_kinds integer (kind=omp_integer_kind), value :: place_num - integer (kind=kmp_pointer_kind) ids + integer (kind=kmp_pointer_kind) ids(*) end subroutine omp_get_place_proc_ids function omp_get_place_num() bind(c) @@ -212,7 +212,7 @@ subroutine omp_get_partition_place_nums(place_nums) bind(c) use omp_lib_kinds - integer (kind=kmp_pointer_kind) place_nums + integer (kind=kmp_pointer_kind) place_nums(*) end subroutine omp_get_partition_place_nums function omp_get_wtime() bind(c) @@ -515,7 +515,7 @@ subroutine omp_init_nest_lock_with_hint(nvar, hint) bind(c) use omp_lib_kinds - integer (kind=omp_lock_kind) nvar + integer (kind=omp_nest_lock_kind) nvar integer (kind=omp_lock_hint_kind), value :: hint end subroutine omp_init_nest_lock_with_hint diff --git a/openmp/runtime/src/include/45/omp_lib.h.var b/openmp/runtime/src/include/45/omp_lib.h.var index 5bad7d2c700..76284f27ed1 100644 --- a/openmp/runtime/src/include/45/omp_lib.h.var +++ b/openmp/runtime/src/include/45/omp_lib.h.var @@ -186,7 +186,7 @@ subroutine omp_get_place_proc_ids(place_num, ids) bind(c) import integer (kind=omp_integer_kind), value :: place_num - integer (kind=kmp_pointer_kind) ids + integer (kind=kmp_pointer_kind) ids(*) end subroutine omp_get_place_proc_ids function omp_get_place_num() bind(c) @@ -201,7 +201,7 @@ subroutine omp_get_partition_place_nums(place_nums) bind(c) import - integer (kind=kmp_pointer_kind) place_nums + integer (kind=kmp_pointer_kind) place_nums(*) end subroutine omp_get_partition_place_nums function omp_get_wtime() bind(c) @@ -490,7 +490,7 @@ subroutine omp_init_nest_lock_with_hint(nvar, hint) bind(c) import - integer (kind=omp_lock_kind) nvar + integer (kind=omp_nest_lock_kind) nvar integer (kind=omp_lock_hint_kind), value :: hint end subroutine omp_init_nest_lock_with_hint |
