Skip to content

Commit 8b466c6

Browse files
committed
Revert "fortran:fix integer kind=8 problem"
turns out there's more to do here. many functions aren't actually treating the string len arg correctly in the use-mpi-f08 folder This reverts commit 32db65f.
1 parent 3cc346b commit 8b466c6

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

ompi/mpi/fortran/use-mpi-f08/bindings/mpi-f-interfaces-bind.h

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -4005,12 +4005,12 @@ end subroutine ompi_session_get_info_f
40054005

40064006
subroutine ompi_session_get_nth_pset_f(session, info, n, pset_len, pset_name, ierror, pset_name_len) &
40074007
BIND(C, name="ompi_session_get_nth_pset_f")
4008-
use, intrinsic :: ISO_C_BINDING, only : C_CHAR
4008+
use, intrinsic :: ISO_C_BINDING, only : C_CHAR, C_INT
40094009
implicit none
40104010
INTEGER, INTENT(IN) :: session
40114011
INTEGER, INTENT(IN) :: info
40124012
INTEGER, INTENT(IN) :: n
4013-
INTEGER, VALUE, INTENT(IN) :: pset_name_len
4013+
INTEGER(KIND=C_INT), VALUE, INTENT(IN) :: pset_name_len
40144014
INTEGER, INTENT(INOUT) :: pset_len
40154015
CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(OUT) :: pset_name
40164016
INTEGER, INTENT(out) :: ierror

0 commit comments

Comments
 (0)