int MPI_Get_address(const void* location,
                    MPI_Aint* address);

#include <stdio.h>
#include <stdlib.h>
#include <mpi.h>

/**
 * @brief Illustrate how to obtain the address of an element.
 **/
int main(int argc, char* argv[])
{
    MPI_Init(&argc, &argv);

    int a[10];

    MPI_Aint addr;
    MPI_Get_address(&a[2], &addr);

    printf("The address of the third element is %ld.\n", addr);

    MPI_Finalize();

    return EXIT_SUCCESS;
}

SUBROUTINE MPI_Get_address(location, address, ierror)
    <type> :: location(*)
    INTEGER(KIND=MPI_ADDRESS_KIND) :: address
    INTEGER :: ierror

!> @brief Illustrate how to obtain the address of an element.
PROGRAM main
    USE mpi

    IMPLICIT NONE

    INTEGER :: ierror
    INTEGER(KIND=MPI_ADDRESS_KIND) :: addr
    INTEGER :: a(0:9)

    CALL MPI_Init(ierror)

    CALL MPI_Get_address(a(2), addr, ierror)
    WRITE(*,'(A,I0,A)') 'The address of the third element is ', addr, '.'

    CALL MPI_Finalize(ierror)
END PROGRAM main

SUBROUTINE MPI_Get_address(location, address, ierror)
    TYPE(*), DIMENSION(..), ASYNCHRONOUS :: location
    INTEGER(KIND=MPI_ADDRESS_KIND), INTENT(OUT) :: address
    INTEGER, OPTIONAL, INTENT(OUT) :: ierror

!> @brief Illustrate how to obtain the address of an element.
PROGRAM main
    USE mpi_f08

    IMPLICIT NONE

    INTEGER(KIND=MPI_ADDRESS_KIND) :: addr
    INTEGER :: a(0:9)

    CALL MPI_Init()

    CALL MPI_Get_address(a(2), addr)
    WRITE(*,'(A,I0,A)') 'The address of the third element is ', addr, '.'

    CALL MPI_Finalize()
END PROGRAM main