Test colorize to verify operation
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module.
subroutine testColorize
!! Test colorize to verify operation
character(:),allocatable::test,true
character(1),parameter::ESC = achar(27)
test = colorize('white',[5,5,5])
true = ESC//'[38;5;'//'231'//'m'//'white'//ESC//'[0m'
if( .not.(test==true) ) error stop "Failed colorize check"
end subroutine testColorize