bold_red Function

public function bold_red(text) result(textout)

Arguments

Type IntentOptional Attributes Name
character(len=*) :: text

Return Value character(len=11)


Source Code

  function bold_red(text) result(textout)
    character(len=*) :: text
    character(len=11+len(text)) :: textout
    textout=achar(27)//"[1;91m"//text//achar(27)//"[0m"
  end function bold_red