create_message Function

private function create_message(self)

Make a string containing the error code and exit reason. This is kept minimal to make it easier for tests to parse.

Type Bound

exit_code

Arguments

Type IntentOptional Attributes Name
class(exit_code), intent(in) :: self

Return Value character(len=exit_string_len)


Contents

Source Code

create_message

Source Code

  function create_message(self)
    implicit none
    class(exit_code), intent(in) :: self
    character(len=exit_string_len) :: create_message
    write (create_message,'(I2.1," ",A)') self%code, trim(self%message)
  end function create_message