fassert.F90

Go to the documentation of this file.

@brief c - like assert implementation for fortran.
module assert
 
   implicit none
 
contains
 
   subroutine assertion(cond, file, line)
      character(len=*), intent(in) :: cond
      character(len=*), intent(in) :: file
      integer, intent(in) :: line
      character(len=6) :: line_str
      write (line_str, '(i6)') line
      write (*, '(a, a, a, a, a, a)') file, ":", trim(adjustl(line_str)), ": Assertion `", cond, "' failed."
      write (*, '(a)') "Aborted"
      stop 1
   end subroutine assertion
 
end module assert