Index: openmp/trunk/runtime/src/include/45/omp_lib.h.var =================================================================== --- openmp/trunk/runtime/src/include/45/omp_lib.h.var +++ openmp/trunk/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=omp_integer_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=omp_integer_kind) place_nums(*) end subroutine omp_get_partition_place_nums function omp_get_wtime() bind(c) Index: openmp/trunk/runtime/src/include/45/omp_lib.f.var =================================================================== --- openmp/trunk/runtime/src/include/45/omp_lib.f.var +++ openmp/trunk/runtime/src/include/45/omp_lib.f.var @@ -199,7 +199,7 @@ subroutine omp_get_place_proc_ids(place_num, ids) use omp_lib_kinds integer (kind=omp_integer_kind) place_num - integer (kind=kmp_pointer_kind) ids(*) + integer (kind=omp_integer_kind) ids(*) end subroutine omp_get_place_proc_ids function omp_get_place_num() @@ -214,7 +214,7 @@ subroutine omp_get_partition_place_nums(place_nums) use omp_lib_kinds - integer (kind=kmp_pointer_kind) place_nums(*) + integer (kind=omp_integer_kind) place_nums(*) end subroutine omp_get_partition_place_nums function omp_get_wtime() Index: openmp/trunk/runtime/src/include/45/omp_lib.f90.var =================================================================== --- openmp/trunk/runtime/src/include/45/omp_lib.f90.var +++ openmp/trunk/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=omp_integer_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=omp_integer_kind) place_nums(*) end subroutine omp_get_partition_place_nums function omp_get_wtime() bind(c) Index: openmp/trunk/runtime/src/include/50/omp_lib.h.var =================================================================== --- openmp/trunk/runtime/src/include/50/omp_lib.h.var +++ openmp/trunk/runtime/src/include/50/omp_lib.h.var @@ -198,7 +198,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=omp_integer_kind) ids(*) end subroutine omp_get_place_proc_ids function omp_get_place_num() bind(c) @@ -213,7 +213,7 @@ subroutine omp_get_partition_place_nums(place_nums) bind(c) import - integer (kind=kmp_pointer_kind) place_nums(*) + integer (kind=omp_integer_kind) place_nums(*) end subroutine omp_get_partition_place_nums function omp_get_wtime() bind(c) Index: openmp/trunk/runtime/src/include/50/omp_lib.f.var =================================================================== --- openmp/trunk/runtime/src/include/50/omp_lib.f.var +++ openmp/trunk/runtime/src/include/50/omp_lib.f.var @@ -201,7 +201,7 @@ subroutine omp_get_place_proc_ids(place_num, ids) use omp_lib_kinds integer (kind=omp_integer_kind) place_num - integer (kind=kmp_pointer_kind) ids(*) + integer (kind=omp_integer_kind) ids(*) end subroutine omp_get_place_proc_ids function omp_get_place_num() @@ -216,7 +216,7 @@ subroutine omp_get_partition_place_nums(place_nums) use omp_lib_kinds - integer (kind=kmp_pointer_kind) place_nums(*) + integer (kind=omp_integer_kind) place_nums(*) end subroutine omp_get_partition_place_nums function omp_get_wtime() Index: openmp/trunk/runtime/src/include/50/omp_lib.f90.var =================================================================== --- openmp/trunk/runtime/src/include/50/omp_lib.f90.var +++ openmp/trunk/runtime/src/include/50/omp_lib.f90.var @@ -209,7 +209,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=omp_integer_kind) ids(*) end subroutine omp_get_place_proc_ids function omp_get_place_num() bind(c) @@ -224,7 +224,7 @@ subroutine omp_get_partition_place_nums(place_nums) bind(c) use omp_lib_kinds - integer (kind=kmp_pointer_kind) place_nums(*) + integer (kind=omp_integer_kind) place_nums(*) end subroutine omp_get_partition_place_nums function omp_get_wtime() bind(c)