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