program volatile_doctest
use penf_stringify
 use penf
 print "(A)", str(n=[1._R8P, -2._R8P], compact=.true.)
endprogram volatile_doctest