From: Stuart Prescott <stuart@debian.org>
Date: Sun, 9 Feb 2020 21:26:33 +1100
Subject: Port to MPI 3.0

---
 src/init.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/init.c b/src/init.c
index 9af90f7..11ed514 100644
--- a/src/init.c
+++ b/src/init.c
@@ -413,7 +413,7 @@ void gfs_init (int * argc, char *** argv)
     }
     else
       MPI_Init (argc, argv);
-    MPI_Errhandler_set (MPI_COMM_WORLD, MPI_ERRORS_ARE_FATAL);
+    MPI_Comm_set_errhandler (MPI_COMM_WORLD, MPI_ERRORS_ARE_FATAL);
   }
   atexit ((AtExitFunc) MPI_Finalize);
 #endif /* HAVE_MPI */