error_get_message Function

private pure function error_get_message(self) result(message)

Get the error message (without stack trace)

Type Bound

Arguments

Type	Intent	Optional	Attributes		Name
class(error_t),	intent(in)			::	self

Return Value character(len=:), allocatable

Source Code

   pure function error_get_message(self) result(message)
      !! Get the error message (without stack trace)
      class(error_t), intent(in) :: self
      character(len=:), allocatable :: message
      if (allocated(self%message)) then
         message = self%message
      else
         message = ""
      end if
   end function error_get_message