program volatile_doctest
use penf_stringify
 use penf
 print "(A)", bstr(n=1._R8P)
endprogram volatile_doctest