program volatile_doctest
use penf_stringify
 use penf
 print FI8P, bcton('0000000000000000000000000000000000000000000000000000000000000001', knd=1_I8P)
endprogram volatile_doctest