Generic fatal runtime error
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(error_t), | intent(out), | allocatable | :: | error |
Instance of the error data |
|
character(len=*), | intent(in) | :: | message |
Error message |
subroutine fatal_error(error, message)
!> Instance of the error data
type(error_t), allocatable, intent(out) :: error
!> Error message
character(len=*), intent(in) :: message
allocate(error)
error%message = message
end subroutine fatal_error