Write exit file containing exit code and message
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(exit_code), | intent(in) | :: | self |
subroutine write_exit_file(self)
use file_utils, only: exit_reason_unit
implicit none
class(exit_code), intent(in) :: self
write(exit_reason_unit(),*) self%create_message()
end subroutine write_exit_file