program volatile_doctest
use penf_stringify
 use penf
 print FR4P, cton(str='-1.0', knd=1._R4P)
endprogram volatile_doctest