test_mpi_abort.F90

Go to the documentation of this file.

! Copyright (c) 2026 The YAC Authors
!
! SPDX-License-Identifier: BSD-3-Clause
 
 
program test_mpi_abort
 
  use mpi
  use yac, only : yac_abort_message
  implicit none
 
  integer :: ierror, rank
 
  CALL mpi_init(ierror)
  CALL mpi_comm_rank(mpi_comm_world, rank, ierror)
 
  if (rank == 0) then
    CALL yac_abort_message("some error message", __file__, __line__)
  end if
 
  CALL mpi_finalize(ierror)
 
end program test_mpi_abort