Test intToChar 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 testIntToChar
!! Test intToChar to verify operation
logical,dimension(4)::results
results(1) = intToChar(1)=='1'
results(2) = intToChar(-1)=='-1'
results(3) = intToChar(1,'(1I4.4)')=='0001'
results(4) = intToChar(1,'(1I4.4)',6)=='0001 '
if( .not.all(results) ) error stop "Failed intToChar check"
end subroutine testIntToChar