fail Subroutine

private pure subroutine fail(err, message)

Set err to ERROR_VALIDATION with message, when err is present.

Arguments

Type IntentOptional Attributes Name
type(error_t), intent(out), optional :: err
character(len=*), intent(in) :: message

Human-readable description of the violation

Calls

proc~~fail~~CallsGraph proc~fail fail proc~error_set error_t%error_set proc~fail->proc~error_set

Called by

proc~~fail~~CalledByGraph proc~fail fail proc~a_star a_star proc~a_star->proc~fail proc~check_graph check_graph proc~a_star->proc~check_graph proc~check_weights check_weights proc~a_star->proc~check_weights proc~check_graph->proc~fail proc~check_weights->proc~fail proc~path_cost path_cost proc~path_cost->proc~fail proc~path_cost->proc~check_graph proc~path_cost->proc~check_weights proc~bfs bfs proc~bfs->proc~check_graph proc~connected_components connected_components proc~connected_components->proc~check_graph proc~dijkstra dijkstra proc~dijkstra->proc~check_graph proc~dijkstra->proc~check_weights

Source Code

   pure subroutine fail(err, message)
      !! Set `err` to `ERROR_VALIDATION` with `message`, when `err` is present.
      type(error_t), intent(out), optional :: err
      character(len=*), intent(in) :: message
         !! Human-readable description of the violation

      if (present(err)) call err%set(ERROR_VALIDATION, message)
   end subroutine fail