Remove BIND(C) from all mpi_f08 interfaces.

This commit was SVN r29383.

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

@@ -1,5 +1,5 @@
 ! -*- 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$
@@ -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,8 +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
@@ -76,8 +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
@@ -88,8 +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
@@ -101,8 +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
@@ -113,8 +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
@@ -126,8 +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
@@ -137,8 +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
@@ -147,8 +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
@@ -159,8 +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
@@ -171,8 +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
@@ -182,8 +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
@@ -192,8 +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
@@ -203,8 +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
@@ -215,8 +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 

ompi/mpi/fortran/configure-fortran-output-bottom.h

@@ -1,6 +1,6 @@
 ! -*- fortran -*-
 !
-! Copyright (c) 2006-2012 Cisco Systems, Inc.  All rights reserved.
+! Copyright (c) 2006-2013 Cisco Systems, Inc.  All rights reserved.
 ! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
 !                         All rights reserved.
 !
@@ -17,15 +17,6 @@
 #ifndef OMPI_FORTRAN_CONFIGURE_OUTPUT_BOTTOM_H
 #define OMPI_FORTRAN_CONFIGURE_OUTPUT_BOTTOM_H
 
-! Whether we're using wrappers or not.
-! Currently, we're *always* using wrappers.  This can be optimized in
-! the future for "good" compilers.
-#if OMPI_FORTRAN_NEED_WRAPPER_ROUTINES
-#define OMPI_F08_INTERFACE_BIND_C(foo)
-#else
-#define OMPI_F08_INTERFACE_BIND_C(foo) BIND(C,name=foo)
-#endif
-
 ! PROCEDURE or not
 #if OMPI_FORTRAN_HAVE_PROCEDURE
 #define OMPI_PROCEDURE(name) PROCEDURE(name)