From 90f5bd9424942c62c80f36560bcef7a6a0bac42b Mon Sep 17 00:00:00 2001
From: Nathan Hjelm <hjelmn@lanl.gov>
Date: Tue, 23 Jul 2013 19:00:06 +0000
Subject: [PATCH] Add missing f08 binding declarations for MPI_Count functions

This commit was SVN r28936.
---
 .../use-mpi-f08/mpi-f-interfaces-bind.h       | 47 +++++++++++++++++++
 1 file changed, 47 insertions(+)

diff --git a/ompi/mpi/fortran/use-mpi-f08/mpi-f-interfaces-bind.h b/ompi/mpi/fortran/use-mpi-f08/mpi-f-interfaces-bind.h
index d23898c359..3f21304a91 100644
--- a/ompi/mpi/fortran/use-mpi-f08/mpi-f-interfaces-bind.h
+++ b/ompi/mpi/fortran/use-mpi-f08/mpi-f-interfaces-bind.h
@@ -410,6 +410,16 @@ subroutine ompi_get_elements_f(status,datatype,count,ierror) &
    INTEGER, INTENT(OUT) :: ierror
 end subroutine ompi_get_elements_f
 
+subroutine ompi_get_elements_x_f(status,datatype,count,ierror) &
+   BIND(C, name="ompi_get_elements_x_f")
+   use :: mpi_f08_types, only : MPI_Status, MPI_COUNT_KIND
+   implicit none
+   TYPE(MPI_Status), INTENT(IN) :: status
+   INTEGER, INTENT(IN) :: datatype
+   INTEGER(MPI_COUNT_KIND), INTENT(OUT) :: count
+   INTEGER, INTENT(OUT) :: ierror
+end subroutine ompi_get_elements_x_f
+
 subroutine ompi_pack_f(inbuf,incount,datatype,outbuf,outsize, &
                        position,comm,ierror) &
    BIND(C, name="ompi_pack_f")
@@ -618,6 +628,15 @@ subroutine ompi_type_get_extent_f(datatype,lb,extent,ierror) &
    INTEGER, INTENT(OUT) :: ierror
 end subroutine ompi_type_get_extent_f
 
+subroutine ompi_type_get_extent_x_f(datatype,lb,extent,ierror) &
+   BIND(C, name="ompi_type_get_extent_x_f")
+   use :: mpi_f08_types, only : MPI_COUNT_KIND
+   implicit none
+   INTEGER, INTENT(IN) :: datatype
+   INTEGER(MPI_COUNT_KIND), INTENT(OUT) :: lb, extent
+   INTEGER, INTENT(OUT) :: ierror
+end subroutine ompi_type_get_extent_x_f
+
 subroutine ompi_type_get_true_extent_f(datatype,true_lb,true_extent,ierror) &
    BIND(C, name="ompi_type_get_true_extent_f")
    use :: mpi_f08_types, only : MPI_ADDRESS_KIND
@@ -627,6 +646,15 @@ subroutine ompi_type_get_true_extent_f(datatype,true_lb,true_extent,ierror) &
    INTEGER, INTENT(OUT) :: ierror
 end subroutine ompi_type_get_true_extent_f
 
+subroutine ompi_type_get_true_extent_x_f(datatype,true_lb,true_extent,ierror) &
+   BIND(C, name="ompi_type_get_true_extent_x_f")
+   use :: mpi_f08_types, only : MPI_COUNT_KIND
+   implicit none
+   INTEGER, INTENT(IN) :: datatype
+   INTEGER(MPI_COUNT_KIND), INTENT(OUT) :: true_lb, true_extent
+   INTEGER, INTENT(OUT) :: ierror
+end subroutine ompi_type_get_true_extent_x_f
+
 subroutine ompi_type_indexed_f(count,array_of_blocklengths, &
                                array_of_displacements,oldtype,newtype,ierror) &
    BIND(C, name="ompi_type_indexed_f")
@@ -646,6 +674,15 @@ subroutine ompi_type_size_f(datatype,size,ierror) &
    INTEGER, INTENT(OUT) :: ierror
 end subroutine ompi_type_size_f
 
+subroutine ompi_type_size_x_f(datatype,size,ierror) &
+   BIND(C, name="ompi_type_size_x_f")
+   use :: mpi_f08_types, only : MPI_COUNT_KIND
+   implicit none
+   INTEGER, INTENT(IN) :: datatype
+   INTEGER(MPI_COUNT_KIND), INTENT(OUT) :: size
+   INTEGER, INTENT(OUT) :: ierror
+end subroutine ompi_type_size_x_f
+
 subroutine ompi_type_vector_f(count,blocklength,stride,oldtype,newtype,ierror) &
    BIND(C, name="ompi_type_vector_f")
    implicit none
@@ -2411,6 +2448,16 @@ subroutine ompi_status_set_elements_f(status,datatype,count,ierror) &
    INTEGER, INTENT(OUT) :: ierror
 end subroutine ompi_status_set_elements_f
 
+subroutine ompi_status_set_elements_x_f(status,datatype,count,ierror) &
+   BIND(C, name="ompi_status_set_elements_x_f")
+   use :: mpi_f08_types, only : MPI_Status, MPI_COUNT_KIND
+   implicit none
+   TYPE(MPI_Status), INTENT(INOUT) :: status
+   INTEGER, INTENT(IN) :: datatype
+   INTEGER(MPI_COUNT_KIND), INTENT(IN) :: count
+   INTEGER, INTENT(OUT) :: ierror
+end subroutine ompi_status_set_elements_x_f
+
 #if OMPI_PROVIDE_MPI_FILE_INTERFACE
 
 subroutine ompi_file_close_f(fh,ierror) &