mpi_f08: fix MPI_FREE_MEM binding

ompi/mpi/fortran/use-mpi-f08/free_mem_f08.F90

@@ -1,19 +1,16 @@
 ! Copyright (c) 2009-2012 Cisco Systems, Inc.  All rights reserved.
 ! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
-!               All Rights reserved.
+!                         All Rights reserved.
+! Copyright (c) 2015      Research Organization for Information Science
+!                         and Technology (RIST). All rights reserved.
 ! $COPYRIGHT$
-!
-! This file creates mappings between MPI C types (e.g., MPI_Comm) and
-! variables (e.g., MPI_COMM_WORLD) and corresponding Fortran names
-! (type(MPI_Comm_world) and MPI_COMM_WORLD, respectively).
 
 #include "ompi/mpi/fortran/configure-fortran-output.h"
 
 subroutine MPI_Free_mem_f08(base,ierror)
-   use :: mpi_f08_types, only : MPI_ADDRESS_KIND
    use :: mpi_f08, only : ompi_free_mem_f
    implicit none
-   INTEGER(MPI_ADDRESS_KIND), DIMENSION(*) OMPI_ASYNCHRONOUS :: base
+   OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: base
    INTEGER, OPTIONAL, INTENT(OUT) :: ierror
    integer :: c_ierror
 

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

@@ -1948,9 +1948,8 @@ end subroutine ompi_finalize_f
 
 subroutine ompi_free_mem_f(base,ierror) &
    BIND(C, name="ompi_free_mem_f")
-   use :: mpi_f08_types, only : MPI_ADDRESS_KIND
    implicit none
-   INTEGER(MPI_ADDRESS_KIND), DIMENSION(*) OMPI_ASYNCHRONOUS :: base
+   OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: base
    INTEGER, INTENT(OUT) :: ierror
 end subroutine ompi_free_mem_f
 

ompi/mpi/fortran/use-mpi-f08/mpi-f08-interfaces.F90

@@ -2682,15 +2682,13 @@ end interface  MPI_Finalized
 ! be okay once the Interop TR is implemented.
 interface  MPI_Free_mem
 subroutine MPI_Free_mem_f08(base,ierror)
-   use :: mpi_f08_types, only : MPI_ADDRESS_KIND
    implicit none
    !DEC$ ATTRIBUTES NO_ARG_CHECK :: base
    !GCC$ ATTRIBUTES NO_ARG_CHECK :: base
    !$PRAGMA IGNORE_TKR base
    !DIR$ IGNORE_TKR base
    !IBM* IGNORE_TKR base
-!   INTEGER(MPI_ADDRESS_KIND), DIMENSION(*) OMPI_ASYNCHRONOUS :: base
-   INTEGER(MPI_ADDRESS_KIND), DIMENSION(*) :: base
+   OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: base
    INTEGER, OPTIONAL, INTENT(OUT) :: ierror
 end subroutine MPI_Free_mem_f08
 end interface  MPI_Free_mem

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

@@ -1784,9 +1784,8 @@ end subroutine pompi_finalize_f
 
 subroutine pompi_free_mem_f(base,ierror) &
    BIND(C, name="pompi_free_mem_f")
-   use :: mpi_f08_types, only : MPI_ADDRESS_KIND
    implicit none
-   INTEGER(MPI_ADDRESS_KIND), DIMENSION(*) OMPI_ASYNCHRONOUS :: base
+   OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: base
    INTEGER, INTENT(OUT) :: ierror
 end subroutine pompi_free_mem_f
 

ompi/mpi/fortran/use-mpi-f08/pmpi-f08-interfaces.F90

@@ -7,6 +7,8 @@
 !                         of Tennessee Research Foundation.  All rights
 !                         reserved.
 ! Copyright (c) 2012      Inria.  All rights reserved.
+! Copyright (c) 2015      Research Organization for Information Science
+!                         and Technology (RIST). All rights reserved.
 ! $COPYRIGHT$
 !
 ! This file provides the interface specifications for the MPI Fortran
@@ -2633,15 +2635,13 @@ end interface  PMPI_Finalized
 !
 interface  PMPI_Free_mem
 subroutine PMPI_Free_mem_f08(base,ierror)
-   use :: mpi_f08_types, only : MPI_ADDRESS_KIND
    implicit none
    !DEC$ ATTRIBUTES NO_ARG_CHECK :: base
    !GCC$ ATTRIBUTES NO_ARG_CHECK :: base
    !$PRAGMA IGNORE_TKR base
    !DIR$ IGNORE_TKR base
    !IBM* IGNORE_TKR base
-!   INTEGER(MPI_ADDRESS_KIND), DIMENSION(*) OMPI_ASYNCHRONOUS :: base
-   INTEGER(MPI_ADDRESS_KIND), DIMENSION(*) :: base
+   OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: base
    INTEGER, OPTIONAL, INTENT(OUT) :: ierror
 end subroutine PMPI_Free_mem_f08
 end interface  PMPI_Free_mem

ompi/mpi/fortran/use-mpi-f08/profile/pfree_mem_f08.F90

@@ -2,20 +2,17 @@
 !
 ! Copyright (c) 2010-2012 Cisco Systems, Inc.  All rights reserved.
 ! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
-!               All Rights reserved.
+!                         All Rights reserved.
+! Copyright (c) 2015      Research Organization for Information Science
+!                         and Technology (RIST). All rights reserved.
 ! $COPYRIGHT$
-!
-! This file provides the interface specifications for the MPI Fortran
-! API bindings.  It effectively maps between public names ("MPI_Init")
-! and the back-end implementation subroutine name (e.g., "ompi_init_f").
 
 #include "ompi/mpi/fortran/configure-fortran-output.h"
 
 subroutine PMPI_Free_mem_f08(base,ierror)
-   use :: mpi_f08_types, only : MPI_ADDRESS_KIND
    use :: mpi_f08, only : ompi_free_mem_f
    implicit none
-   INTEGER(MPI_ADDRESS_KIND), DIMENSION(*) OMPI_ASYNCHRONOUS :: base
+   OMPI_FORTRAN_IGNORE_TKR_TYPE,INTENT(IN) :: base
    INTEGER, OPTIONAL, INTENT(OUT) :: ierror
    integer :: c_ierror