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