Skip to content

Commit d5e1f40

Browse files
committed
fortran: Fix: info should be an integer parameter.
1 parent 9bf9381 commit d5e1f40

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

ompi/mpi/fortran/use-mpi-tkr/mpi-f90-interfaces.h

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -3379,7 +3379,7 @@ subroutine MPI_Dist_graph_create(comm_old, n, sources, degrees, destinations, &
33793379
integer, dimension(n), intent(in) :: degrees
33803380
integer, dimension(n), intent(in) :: destinations
33813381
integer, dimension(n), intent(in) :: weights
3382-
logical, intent(in) :: info
3382+
integer, intent(in) :: info
33833383
logical, intent(in) :: reorder
33843384
integer, intent(out) :: comm_dist_graph
33853385
integer, intent(out) :: ierror
@@ -3400,7 +3400,7 @@ subroutine MPI_Dist_graph_create_adjacent(comm_old, indegree, sources, sourcewei
34003400
integer, intent(in) :: outdegree
34013401
integer, dimension(outdegree), intent(in) :: destinations
34023402
integer, dimension(outdegree), intent(in) :: destweights
3403-
logical, intent(in) :: info
3403+
integer, intent(in) :: info
34043404
logical, intent(in) :: reorder
34053405
integer, intent(out) :: comm_dist_graph
34063406
integer, intent(out) :: ierror

0 commit comments

Comments
 (0)