[svn-r26063] Fixed the wrong number of arguments being used for MPI_FILE_OPEN. Kept using include "mpif.h" since it is not going to be depriciated. But 'USE mpi' will work now that the API is correct.

2 files changed, 8 insertions, 6 deletions

diff --git a/configure b/configure
index 5fddb6f..a4952a2 100755
--- a/configure
+++ b/configure
@@ -27959,9 +27959,10 @@ $as_echo_n "checking whether a simple MPI-IO Fortran program can be linked... "
       cat > conftest.$ac_ext <<_ACEOF
 
           PROGRAM main
-          include "mpif.h"
-          INTEGER :: ierr
-          CALL mpi_file_open( ierr )
+          include 'mpif.h'
+          INTEGER :: comm, amode, info, fh, ierror
+          CHARACTER(LEN=1) :: filename
+          CALL MPI_File_open( comm, filename, amode, info, fh, ierror)
           END
 _ACEOF
 if ac_fn_fc_try_link "$LINENO"; then :
diff --git a/m4/aclocal_fc.m4 b/m4/aclocal_fc.m4
index 64c115a..b5e5cfa 100644
--- a/m4/aclocal_fc.m4
+++ b/m4/aclocal_fc.m4
@@ -268,9 +268,10 @@ dnl   Try link a simple MPI program.
       AC_MSG_CHECKING([whether a simple MPI-IO Fortran program can be linked])
       AC_LINK_IFELSE([ 
           PROGRAM main
-          include "mpif.h"
-          INTEGER :: ierr
-          CALL mpi_file_open( ierr )
+          include 'mpif.h'
+          INTEGER :: comm, amode, info, fh, ierror
+          CHARACTER(LEN=1) :: filename 
+          CALL MPI_File_open( comm, filename, amode, info, fh, ierror)
           END],
 	  [AC_MSG_RESULT([yes])],
 	  [AC_MSG_RESULT([no])