type :: AnsiCode private !> Style descriptor logical :: use_style = .false. integer(i8) :: style = -1_i8 !> Foreground color logical :: use_fg = .false. integer(i16) :: fg = -1_i16 !> Background color logical :: use_bg = .false. integer(i16) :: bg = -1_i16 end type AnsiCode