Revert r30164: it was just the wrong thing to do.

Fixes trac:4155.

This commit was SVN r30360.

The following SVN revision numbers were found above:
  r30164 --> open-mpi/ompi@ca84ffdbd4

The following Trac tickets were found above:
  Ticket 4155 --> https://svn.open-mpi.org/trac/ompi/ticket/4155

ompi/mpi/fortran/base/mpi-f08-interfaces-callbacks.F90

@@ -1,5 +1,5 @@
 ! -*- f90 -*-
-! Copyright (c) 2009-2014 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$
@@ -9,7 +9,7 @@
 module mpi_f08_interfaces_callbacks
 
 OMPI_ABSTRACT INTERFACE
-  SUBROUTINE MPI_User_function(invec, inoutvec, len, datatype) BIND(C)
+  SUBROUTINE MPI_User_function(invec, inoutvec, len, datatype)
     USE mpi_f08_types 
     USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR 
     IMPLICIT NONE 
@@ -63,7 +63,7 @@ END INTERFACE
 
 OMPI_ABSTRACT INTERFACE
 SUBROUTINE MPI_Comm_copy_attr_function(oldcomm,comm_keyval,extra_state, &
-                                       attribute_val_in,attribute_val_out,flag,ierror) BIND(C)
+                                       attribute_val_in,attribute_val_out,flag,ierror)
    USE mpi_f08_types 
    IMPLICIT NONE 
    TYPE(MPI_Comm) :: oldcomm
@@ -75,7 +75,7 @@ END INTERFACE
 
 OMPI_ABSTRACT INTERFACE
 SUBROUTINE MPI_Comm_delete_attr_function(comm,comm_keyval, &
-                                         attribute_val, extra_state, ierror) BIND(C)
+                                         attribute_val, extra_state, ierror)
    USE mpi_f08_types 
    IMPLICIT NONE 
    TYPE(MPI_Comm) :: comm
@@ -86,7 +86,7 @@ END INTERFACE
 
 OMPI_ABSTRACT INTERFACE
 SUBROUTINE MPI_Win_copy_attr_function(oldwin,win_keyval,extra_state, &
-                                      attribute_val_in,attribute_val_out,flag,ierror) BIND(C)
+                                      attribute_val_in,attribute_val_out,flag,ierror)
    USE mpi_f08_types 
    IMPLICIT NONE 
    TYPE(MPI_Win) :: oldwin
@@ -98,7 +98,7 @@ END INTERFACE
 
 OMPI_ABSTRACT INTERFACE
 SUBROUTINE MPI_Win_delete_attr_function(win,win_keyval,attribute_val, &
-                                        extra_state,ierror) BIND(C)
+                                        extra_state,ierror)
    USE mpi_f08_types 
    IMPLICIT NONE 
    TYPE(MPI_Win) :: win
@@ -109,7 +109,7 @@ END INTERFACE
 
 OMPI_ABSTRACT INTERFACE
 SUBROUTINE MPI_Type_copy_attr_function(oldtype,type_keyval,extra_state, &
-                                       attribute_val_in,attribute_val_out,flag,ierror) BIND(C)
+                                       attribute_val_in,attribute_val_out,flag,ierror)
    USE mpi_f08_types 
    IMPLICIT NONE 
    TYPE(MPI_Datatype) :: oldtype
@@ -121,7 +121,7 @@ END INTERFACE
 
 OMPI_ABSTRACT INTERFACE
 SUBROUTINE MPI_Type_delete_attr_function(datatype,type_keyval, &
-                                         attribute_val,extra_state,ierror) BIND(C)
+                                         attribute_val,extra_state,ierror)
    USE mpi_f08_types 
    IMPLICIT NONE 
    TYPE(MPI_Datatype) :: datatype
@@ -131,7 +131,7 @@ END SUBROUTINE
 END INTERFACE
 
 OMPI_ABSTRACT INTERFACE
-SUBROUTINE MPI_Comm_errhandler_function(comm,error_code) BIND(C)
+SUBROUTINE MPI_Comm_errhandler_function(comm,error_code)
    USE mpi_f08_types 
    IMPLICIT NONE 
    TYPE(MPI_Comm) :: comm
@@ -140,7 +140,7 @@ END SUBROUTINE
 END INTERFACE
 
 OMPI_ABSTRACT INTERFACE
-SUBROUTINE MPI_Win_errhandler_function(win, error_code) BIND(C)
+SUBROUTINE MPI_Win_errhandler_function(win, error_code)
    USE mpi_f08_types 
    IMPLICIT NONE 
    TYPE(MPI_Win) :: win
@@ -151,7 +151,7 @@ END INTERFACE
 #if OMPI_PROVIDE_MPI_FILE_INTERFACE
 
 OMPI_ABSTRACT INTERFACE
-SUBROUTINE MPI_File_errhandler_function(file, error_code) BIND(C)
+SUBROUTINE MPI_File_errhandler_function(file, error_code)
    USE mpi_f08_types 
    IMPLICIT NONE 
    TYPE(MPI_File) :: file
@@ -162,7 +162,7 @@ END INTERFACE
 #endif
 
 OMPI_ABSTRACT INTERFACE
-SUBROUTINE MPI_Grequest_query_function(extra_state,status,ierror) BIND(C)
+SUBROUTINE MPI_Grequest_query_function(extra_state,status,ierror)
    USE mpi_f08_types 
    IMPLICIT NONE 
    TYPE(MPI_Status) :: status
@@ -172,7 +172,7 @@ END SUBROUTINE
 END INTERFACE
 
 OMPI_ABSTRACT INTERFACE
-SUBROUTINE MPI_Grequest_free_function(extra_state,ierror) BIND(C)
+SUBROUTINE MPI_Grequest_free_function(extra_state,ierror)
    USE mpi_f08_types 
    IMPLICIT NONE 
    INTEGER :: ierror
@@ -181,7 +181,7 @@ END SUBROUTINE
 END INTERFACE
 
 OMPI_ABSTRACT INTERFACE
-SUBROUTINE MPI_Grequest_cancel_function(extra_state,complete,ierror) BIND(C)
+SUBROUTINE MPI_Grequest_cancel_function(extra_state,complete,ierror)
    USE mpi_f08_types 
    IMPLICIT NONE 
    INTEGER(KIND=MPI_ADDRESS_KIND) :: extra_state
@@ -191,7 +191,7 @@ END SUBROUTINE
 END INTERFACE
 
 OMPI_ABSTRACT INTERFACE
-SUBROUTINE MPI_Datarep_extent_function(datatype, extent, extra_state, ierror) BIND(C)
+SUBROUTINE MPI_Datarep_extent_function(datatype, extent, extra_state, ierror)
    USE mpi_f08_types 
    IMPLICIT NONE 
    TYPE(MPI_Datatype) :: datatype
@@ -202,7 +202,7 @@ END INTERFACE
 
 OMPI_ABSTRACT INTERFACE
 SUBROUTINE MPI_Datarep_conversion_function(userbuf, datatype, count, &
-                                           filebuf, position, extra_state, ierror) BIND(C)
+                                           filebuf, position, extra_state, ierror)
    USE mpi_f08_types 
    USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR 
    IMPLICIT NONE