omitted_note Function

private pure function omitted_note(count) result(note)

One-line notice that count intermediate causes were dropped

Arguments

Type IntentOptional Attributes Name
integer(kind=default_int), intent(in) :: count

Return Value character(len=:), allocatable


Called by

proc~~omitted_note~~CalledByGraph proc~omitted_note omitted_note proc~error_get_full_trace error_t%error_get_full_trace proc~error_get_full_trace->proc~omitted_note proc~error_print_trace error_t%error_print_trace proc~error_print_trace->proc~omitted_note proc~error_fatal error_t%error_fatal proc~error_fatal->proc~error_print_trace

Variables

Type Visibility Attributes Name Initial
character(len=32), private :: count_str

Source Code

   pure function omitted_note(count) result(note)
      !! One-line notice that `count` intermediate causes were dropped
      integer(default_int), intent(in) :: count
      character(len=:), allocatable :: note
      character(len=32) :: count_str

      write (count_str, "(I0)") count
      note = "  "//TRUNCATION_MARKER//" "//trim(count_str)// &
             " intermediate cause(s) omitted "//TRUNCATION_MARKER
   end function omitted_note