Merged in nathanweeks/ulfm2/issue/comm_failure_get_acked-f90 (pull re…

…quest open-mpi#3) Correct type of MPI_Comm_failure_get_acked failedgrp argument in Fortran USE mpi interface Approved-by: George Bosilca <bosilca@icl.utk.edu>
abouteiller · Dec 20, 2017 · 51bbd22 · 51bbd22
2 parents 199f5f0 + f3a096d
commit 51bbd22
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/ompi/mpiext/ftmpi/use-mpi/mpiext_ftmpi_usempi.h b/ompi/mpiext/ftmpi/use-mpi/mpiext_ftmpi_usempi.h
@@ -41,7 +41,7 @@ end interface MPIX_Comm_failure_ack
 interface MPIX_Comm_failure_get_acked
     subroutine mpix_comm_failure_get_acked(comm, failedgrp, ierr)
         integer, intent(IN) :: comm
-        logical, intent(OUT) :: failedgrp, ierr
+        integer, intent(OUT) :: failedgrp, ierr
     end subroutine mpix_comm_failure_get_acked
 end interface MPIX_Comm_failure_get_acked
 
@@ -85,7 +85,7 @@ end interface OMPI_Comm_failure_ack
 interface OMPI_Comm_failure_get_acked
     subroutine ompi_comm_failure_get_acked(comm, failedgrp, ierr)
         integer, intent(IN) :: comm
-        logical, intent(OUT) :: failedgrp, ierr
+        integer, intent(OUT) :: failedgrp, ierr
     end subroutine ompi_comm_failure_get_acked
 end interface OMPI_Comm_failure_get_acked