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