make_replacement_char Function

public pure function make_replacement_char() result(replace)

Arguments

None

Return Value character(len=3)


Source Code

   pure function make_replacement_char() result(replace)
      implicit none
      character(3) :: replace

      replace = char_utf8(65535)  ! U+FFFF
   end function make_replacement_char