From 0efcaa94a487d4a9ccdbea7b3afd513cb3797d0f Mon Sep 17 00:00:00 2001 From: Gilles Gouaillardet Date: Wed, 19 Sep 2018 11:36:13 +0900 Subject: [PATCH] use-mpi-f08: fix a typo in [P]MPI_Dist_graph_create_adjacent bindings Signed-off-by: Gilles Gouaillardet (cherry picked from commit open-mpi/ompi@d2393251f7259a72ad0409d2bff8016646cc6bcb) --- .../fortran/use-mpi-f08/dist_graph_create_adjacent_f08.F90 | 4 +++- .../use-mpi-f08/profile/pdist_graph_create_adjacent_f08.F90 | 4 +++- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/ompi/mpi/fortran/use-mpi-f08/dist_graph_create_adjacent_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/dist_graph_create_adjacent_f08.F90 index 884d4df36ef..b5f5b9ad7df 100644 --- a/ompi/mpi/fortran/use-mpi-f08/dist_graph_create_adjacent_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/dist_graph_create_adjacent_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2010-2013 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Dist_graph_create_adjacent_f08(comm_old,indegree,sources,sourceweights,& @@ -25,6 +27,6 @@ subroutine MPI_Dist_graph_create_adjacent_f08(comm_old,indegree,sources,sourcewe call PMPI_Dist_graph_create_adjacent(comm_old%MPI_VAL,indegree,sources,& sourceweights,outdegree,destinations,& destweights,info%MPI_VAL,& - reorder,comm_dist_graph%MPI_VAL,ierror) + reorder,comm_dist_graph%MPI_VAL,c_ierror) if (present(ierror)) ierror = c_ierror end subroutine MPI_Dist_graph_create_adjacent_f08 diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pdist_graph_create_adjacent_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pdist_graph_create_adjacent_f08.F90 index ecee01e4ef3..6d413a45004 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pdist_graph_create_adjacent_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pdist_graph_create_adjacent_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2010-2013 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Dist_graph_create_adjacent_f08(comm_old,indegree,sources,sourceweights,& @@ -25,6 +27,6 @@ subroutine PMPI_Dist_graph_create_adjacent_f08(comm_old,indegree,sources,sourcew call PMPI_Dist_graph_create_adjacent(comm_old%MPI_VAL,indegree,sources,& sourceweights,outdegree,destinations,& destweights,info%MPI_VAL,& - reorder,comm_dist_graph%MPI_VAL,ierror) + reorder,comm_dist_graph%MPI_VAL,c_ierror) if (present(ierror)) ierror = c_ierror end subroutine PMPI_Dist_graph_create_adjacent_f08