to_string_2_l_fbool Module Function

pure module function to_string_2_l_fbool(value, format) result(string)

Arguments

Type IntentOptional Attributes Name
logical(kind=fbool), intent(in) :: value
character(len=*), intent(in) :: format

Return Value character(len=:), allocatable


Variables

Type Visibility Attributes Name Initial
character(len=buffer_len), private :: buffer
integer, private :: stat

Source Code

   pure module function to_string_2_l_fbool(value, format) result(string)
      logical(fbool), intent(in) :: value
      character(len=*), intent(in) :: format
      character(len=:), allocatable :: string

      character(len=buffer_len) :: buffer
      integer :: stat

      write (buffer, "("//format//")", iostat=stat) value
      if (stat == 0) then
         string = trim(buffer)
      else
         string = err_sym
      end if

   end function to_string_2_l_fbool