[Openmp-commits] [openmp] r319372 - Fix types of Fortran array elements
Jonathan Peyton via Openmp-commits
openmp-commits at lists.llvm.org
Wed Nov 29 14:23:44 PST 2017
Author: jlpeyton
Date: Wed Nov 29 14:23:44 2017
New Revision: 319372
URL: http://llvm.org/viewvc/llvm-project?rev=319372&view=rev
Log:
Fix types of Fortran array elements
Fortran array elements made default integer in OMP_GET_PLACE_PROC_IDS and
OMP_GET_PARTITION_PLACE_NUMS subroutines, otherwise call to them produces
incorrect result.
Patch by Olga Malysheva
Differential Revision: https://reviews.llvm.org/D40356
Modified:
openmp/trunk/runtime/src/include/45/omp_lib.f.var
openmp/trunk/runtime/src/include/45/omp_lib.f90.var
openmp/trunk/runtime/src/include/45/omp_lib.h.var
openmp/trunk/runtime/src/include/50/omp_lib.f.var
openmp/trunk/runtime/src/include/50/omp_lib.f90.var
openmp/trunk/runtime/src/include/50/omp_lib.h.var
Modified: openmp/trunk/runtime/src/include/45/omp_lib.f.var
URL: http://llvm.org/viewvc/llvm-project/openmp/trunk/runtime/src/include/45/omp_lib.f.var?rev=319372&r1=319371&r2=319372&view=diff
==============================================================================
--- openmp/trunk/runtime/src/include/45/omp_lib.f.var (original)
+++ openmp/trunk/runtime/src/include/45/omp_lib.f.var Wed Nov 29 14:23:44 2017
@@ -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()
Modified: openmp/trunk/runtime/src/include/45/omp_lib.f90.var
URL: http://llvm.org/viewvc/llvm-project/openmp/trunk/runtime/src/include/45/omp_lib.f90.var?rev=319372&r1=319371&r2=319372&view=diff
==============================================================================
--- openmp/trunk/runtime/src/include/45/omp_lib.f90.var (original)
+++ openmp/trunk/runtime/src/include/45/omp_lib.f90.var Wed Nov 29 14:23:44 2017
@@ -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)
Modified: openmp/trunk/runtime/src/include/45/omp_lib.h.var
URL: http://llvm.org/viewvc/llvm-project/openmp/trunk/runtime/src/include/45/omp_lib.h.var?rev=319372&r1=319371&r2=319372&view=diff
==============================================================================
--- openmp/trunk/runtime/src/include/45/omp_lib.h.var (original)
+++ openmp/trunk/runtime/src/include/45/omp_lib.h.var Wed Nov 29 14:23:44 2017
@@ -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)
Modified: openmp/trunk/runtime/src/include/50/omp_lib.f.var
URL: http://llvm.org/viewvc/llvm-project/openmp/trunk/runtime/src/include/50/omp_lib.f.var?rev=319372&r1=319371&r2=319372&view=diff
==============================================================================
--- openmp/trunk/runtime/src/include/50/omp_lib.f.var (original)
+++ openmp/trunk/runtime/src/include/50/omp_lib.f.var Wed Nov 29 14:23:44 2017
@@ -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()
Modified: openmp/trunk/runtime/src/include/50/omp_lib.f90.var
URL: http://llvm.org/viewvc/llvm-project/openmp/trunk/runtime/src/include/50/omp_lib.f90.var?rev=319372&r1=319371&r2=319372&view=diff
==============================================================================
--- openmp/trunk/runtime/src/include/50/omp_lib.f90.var (original)
+++ openmp/trunk/runtime/src/include/50/omp_lib.f90.var Wed Nov 29 14:23:44 2017
@@ -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)
Modified: openmp/trunk/runtime/src/include/50/omp_lib.h.var
URL: http://llvm.org/viewvc/llvm-project/openmp/trunk/runtime/src/include/50/omp_lib.h.var?rev=319372&r1=319371&r2=319372&view=diff
==============================================================================
--- openmp/trunk/runtime/src/include/50/omp_lib.h.var (original)
+++ openmp/trunk/runtime/src/include/50/omp_lib.h.var Wed Nov 29 14:23:44 2017
@@ -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)
More information about the Openmp-commits
mailing list