program volatile_doctest
use penf_stringify
 use penf
 print FR4P, bcton('00000000000000001000000000111111', knd=1._R4P)
endprogram volatile_doctest