[svn-r9410] Purpose:

    Code cleanup

Description:
    Update FORTRAN configuration test code to be more syntacticly correct
and not generate errors with stricter standards checking in the compiler.

Platforms tested:
    Linux 2.4 (verbena)
    Too minor to require h5committest

2 files changed, 8 insertions, 0 deletions

diff --git a/configure b/configure
index a6d70b8..3924856 100755
--- a/configure
+++ b/configure
@@ -32247,6 +32247,7 @@ cat >conftest.$ac_ext <<EOF
         program conftest
           include 'mpif.h'
 
+          integer:: ierr
           call mpi_file_open( ierr )
         end
 EOF
@@ -32280,6 +32281,7 @@ cat >conftest.$ac_ext <<EOF
         program conftest
 
             include 'mpif.h'
+            integer:: ierr
             call mpi_file_open( ierr )
         end
 EOF
@@ -32329,6 +32331,7 @@ cat >conftest.$ac_ext <<EOF
         program conftest
           include 'mpif.h'
 
+            integer:: ierr
             call mpi_file_open( ierr )
         end
 EOF
@@ -32362,6 +32365,7 @@ cat >conftest.$ac_ext <<EOF
         program conftest
 
               include 'mpif.h'
+              integer:: ierr
               call mpi_file_open( ierr )
         end
 EOF
diff --git a/configure.in b/configure.in
index 069ec54..de8ae57 100644
--- a/configure.in
+++ b/configure.in
@@ -2211,18 +2211,22 @@ case "X-$enable_parallel" in
 
       dnl Try link a simple MPI program.  If fail, try again with -lmpi.
       AC_TRY_FLINK(mpif.h, [
+          integer:: ierr
           call mpi_file_open( ierr )],,
           AC_CHECK_FLIB(mpi, [
             include 'mpif.h'
+            integer:: ierr
             call mpi_file_open( ierr )],, PARALLEL=no))
 
       dnl Then try link a simple MPI-IO program.  If fail, try again with
       dnl -lmpio.
       if test "X$PARALLEL" = "Xyes"; then
         AC_TRY_FLINK(mpif.h, [
+            integer:: ierr
             call mpi_file_open( ierr )],,
             AC_CHECK_FLIB(mpio, [
               include 'mpif.h'
+              integer:: ierr
               call mpi_file_open( ierr )],, PARALLEL=no))
       fi