int MPI_Finalize();

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

/**
 * @brief Illustrate how to finalise the MPI environment.
 **/
int main(int argc, char* argv[])
{
    MPI_Init(&argc, &argv);

    // Tell MPI to shut down and that we no longer need it.
    MPI_Finalize();

    return EXIT_SUCCESS;
}

SUBROUTINE MPI_Finalize(ierror)
    INTEGER :: ierror

!> @brief Illustrate how to finalise the MPI environment.
PROGRAM main
    USE mpi

    IMPLICIT NONE

    INTEGER :: ierror

    CALL MPI_Init(ierror)

    ! Tell MPI to shut down and that we no longer need it.
    CALL MPI_Finalize(ierror)
END PROGRAM main

SUBROUTINE MPI_Finalize(ierror)
    INTEGER, OPTIONAL, INTENT(OUT) :: ierror

!> @brief Illustrate how to finalise the MPI environment.
PROGRAM main
    USE mpi_f08

    IMPLICIT NONE

    CALL MPI_Init()

    ! Tell MPI to shut down and that we no longer need it.
    CALL MPI_Finalize()
END PROGRAM main