test_abort.F90

Go to the documentation of this file.

! Copyright (c) 2024 The YAC Authors
!
! SPDX-License-Identifier: BSD-3-Clause
 
 
program test_abort
 
  use yac, only : yac_abort_message
  implicit none
 
  ! aborts program without initialising MPI
  CALL yac_abort_message("some error message", __file__, __line__)
 
end program test_abort