summaryrefslogtreecommitdiffstats
path: root/m4/aclocal_fc.m4
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2015-01-28 15:37:01 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2015-01-28 15:37:01 (GMT)
commitcc7cdaac59364de441582ac2f208fa7bf4ecc198 (patch)
treed1a75a9c95cc893ea12df9e88b76042760536ade /m4/aclocal_fc.m4
parent052638dbc8e010f500c83074b7237ea150ab8262 (diff)
downloadhdf5-cc7cdaac59364de441582ac2f208fa7bf4ecc198.zip
hdf5-cc7cdaac59364de441582ac2f208fa7bf4ecc198.tar.gz
hdf5-cc7cdaac59364de441582ac2f208fa7bf4ecc198.tar.bz2
[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.
Diffstat (limited to 'm4/aclocal_fc.m4')
-rw-r--r--m4/aclocal_fc.m47
1 files changed, 4 insertions, 3 deletions
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])