fail Subroutine

private subroutine fail(err, code, message)

Set err if it is present, and do nothing if it is not.

Arguments

Type IntentOptional Attributes Name
type(error_t), intent(inout), optional :: err
integer(kind=default_int), intent(in) :: code
character(len=*), intent(in) :: message

Calls

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

Called by

proc~~fail~2~~CalledByGraph proc~fail~2 fail proc~cli_get_int32 cli_t%cli_get_int32 proc~cli_get_int32->proc~fail~2 proc~cli_get_string cli_t%cli_get_string proc~cli_get_int32->proc~cli_get_string proc~cli_get_int64 cli_t%cli_get_int64 proc~cli_get_int64->proc~fail~2 proc~cli_get_int64->proc~cli_get_string proc~cli_get_logical cli_t%cli_get_logical proc~cli_get_logical->proc~fail~2 proc~cli_get_logical->proc~cli_get_string proc~cli_get_real_dp cli_t%cli_get_real_dp proc~cli_get_real_dp->proc~fail~2 proc~cli_get_real_dp->proc~cli_get_string proc~cli_get_real_sp cli_t%cli_get_real_sp proc~cli_get_real_sp->proc~fail~2 proc~cli_get_real_sp->proc~cli_get_string proc~cli_get_string->proc~fail~2 proc~cli_parse_args cli_t%cli_parse_args proc~cli_parse_args->proc~fail~2 proc~cli_get_char cli_t%cli_get_char proc~cli_get_char->proc~cli_get_string proc~cli_parse cli_t%cli_parse proc~cli_parse->proc~cli_parse_args

Source Code

   subroutine fail(err, code, message)
      !! Set `err` if it is present, and do nothing if it is not.
      type(error_t), intent(inout), optional :: err
      integer(default_int), intent(in) :: code
      character(len=*), intent(in) :: message

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