-
Notifications
You must be signed in to change notification settings - Fork 919
pcomm:fix fortran interface for precv/psend #11986
New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
Conversation
@@ -310,9 +310,11 @@ end subroutine ompi_issend_f | |||
|
|||
subroutine ompi_psend_init_f(buf,partitions,count,datatype,dest,tag,comm,info,request,ierror) & | |||
BIND(C, name="ompi_psend_init_f") | |||
use :: mpi_f08_types, only : MPI_Status, MPI_COUNT_KIND |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Why add MPI_Status
here?
@@ -322,9 +324,11 @@ end subroutine ompi_psend_init_f | |||
|
|||
subroutine ompi_precv_init_f(buf,partitions,count,datatype,dest,tag,comm,info,request,ierror) & | |||
BIND(C, name="ompi_precv_init_f") | |||
use :: mpi_f08_types, only : MPI_Status, MPI_COUNT_KIND |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Why add MPI_Status
here?
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
nice catch!
@@ -7,16 +7,19 @@ | |||
! and Technology (RIST). All rights reserved. | |||
! Copyright (c) 2020 Sandia National Laboratories. All rights reserved. | |||
! Copyright (c) 2021 Bull S.A.S. All rights reserved. | |||
! Copyright (c) 2022 Triad National Security, LLC. All rights |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
2023, right?
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
yep
Looks good to me other than the small items Jeff already pointed out. |
The Fortran interfaces were using INTEGER for count argument. The MPI-4 standard states that this argument should be INTEGER(KIND=MPI_COUNT_KIND). related to open-mpi#11982 Signed-off-by: Howard Pritchard <[email protected]>
fb58657
to
e1134af
Compare
@hppritcha Thank you! Do you plan to backport to v5.0.x? |
Yes later today |
The Fortran interfaces were using INTEGER for count argument. The MPI-4 standard states that this argument should be INTEGER(KIND=MPI_COUNT_KIND).
related to #11982