program volatile_doctest
use penf_stringify
 use penf
 print FR8P, bcton('0000000000000000000000000000000000000000000000001111000000111111', knd=1._R8P)
endprogram volatile_doctest