Fix --disable-mpi-io in the Fortran mpi-f08 interface.

This commit was SVN r28097.

ompi/mpi/fortran/use-mpi-f08/mpi-f-interfaces-bind.h

@@ -1,6 +1,6 @@
 ! -*- f90 -*-
 !
-! Copyright (c) 2009-2012 Cisco Systems, Inc.  All rights reserved.
+! Copyright (c) 2009-2013 Cisco Systems, Inc.  All rights reserved.
 ! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
 !                         All rights reserved.
 ! Copyright (c) 2012      The University of Tennessee and The University
@@ -1870,6 +1870,8 @@ subroutine ompi_error_string_f(errorcode,string,resultlen,ierror,str_len) &
    INTEGER, VALUE, INTENT(IN) :: str_len
 end subroutine ompi_error_string_f
 
+#if OMPI_PROVIDE_MPI_FILE_INTERFACE
+
 subroutine ompi_file_call_errhandler_f(fh,errorcode,ierror) &
    BIND(C, name="ompi_file_call_errhandler_f")
    implicit none
@@ -1903,6 +1905,8 @@ subroutine ompi_file_set_errhandler_f(file,errhandler,ierror) &
    INTEGER, INTENT(OUT) :: ierror
 end subroutine ompi_file_set_errhandler_f
 
+#endif ! OMPI_PROFILE_MPI_FILE_INTERFACE
+
 subroutine ompi_finalize_f(ierror) &
    BIND(C, name="ompi_finalize_f")
    implicit none
@@ -2407,6 +2411,8 @@ subroutine ompi_status_set_elements_f(status,datatype,count,ierror) &
    INTEGER, INTENT(OUT) :: ierror
 end subroutine ompi_status_set_elements_f
 
+#if OMPI_PROVIDE_MPI_FILE_INTERFACE
+
 subroutine ompi_file_close_f(fh,ierror) &
    BIND(C, name="ompi_file_close_f")
    implicit none
@@ -2948,6 +2954,8 @@ subroutine ompi_file_write_shared_f(fh,buf,count,datatype,status,ierror) &
    INTEGER, INTENT(OUT) :: ierror
 end subroutine ompi_file_write_shared_f
 
+#endif ! OMPI_PROVIDE_MPI_FILE_INTERFACE
+
 subroutine ompi_register_datarep_f(datarep,read_conversion_fn, &
                                    write_conversion_fn,dtype_file_extent_fn, &
                                    extra_state,ierror,datarep_len) &

ompi/mpi/fortran/use-mpi-f08/pmpi-f-interfaces-bind.h

@@ -1,6 +1,6 @@
 ! -*- f90 -*-
 !
-! Copyright (c) 2009-2012 Cisco Systems, Inc.  All rights reserved.
+! Copyright (c) 2009-2013 Cisco Systems, Inc.  All rights reserved.
 ! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
 !                         All rights reserved.
 ! Copyright (c) 2012      The University of Tennessee and The University
@@ -1873,6 +1873,8 @@ subroutine pompi_error_string_f(errorcode,string,resultlen,ierror,str_len) &
    INTEGER, VALUE, INTENT(IN) :: str_len
 end subroutine pompi_error_string_f
 
+#if OMPI_PROVIDE_MPI_FILE_INTERFACE
+
 subroutine pompi_file_call_errhandler_f(fh,errorcode,ierror) &
    BIND(C, name="pompi_file_call_errhandler_f")
    implicit none
@@ -1906,6 +1908,8 @@ subroutine pompi_file_set_errhandler_f(file,errhandler,ierror) &
    INTEGER, INTENT(OUT) :: ierror
 end subroutine pompi_file_set_errhandler_f
 
+#endif ! OMPI_PROVIDE_MPI_FILE_INTERFACE
+
 subroutine pompi_finalize_f(ierror) &
    BIND(C, name="pompi_finalize_f")
    implicit none
@@ -2413,6 +2417,8 @@ subroutine pompi_status_set_elements_f(status,datatype,count,ierror) &
    INTEGER, INTENT(OUT) :: ierror
 end subroutine pompi_status_set_elements_f
 
+#if OMPI_PROVIDE_MPI_FILE_INTERFACE
+
 subroutine pompi_file_close_f(fh,ierror) &
    BIND(C, name="pompi_file_close_f")
    implicit none
@@ -2954,6 +2960,8 @@ subroutine pompi_file_write_shared_f(fh,buf,count,datatype,status,ierror) &
    INTEGER, INTENT(OUT) :: ierror
 end subroutine pompi_file_write_shared_f
 
+#endif ! OMPI_PROVIDE_MPI_FILE_INTERFACE
+
 subroutine pompi_register_datarep_f(datarep,read_conversion_fn, &
                                    write_conversion_fn,dtype_file_extent_fn, &
                                    extra_state,ierror,datarep_len) &