program volatile_doctest
use penf_stringify
 use penf
 print FI4P, cton(str='-1', knd=1_I4P)
endprogram volatile_doctest