program volatile_doctest
use penf
 use penf
 print FI4P, digit(100_I8P)
endprogram volatile_doctest