program volatile_doctest
use penf_b_size
 use penf
 print FI1P, bit_size(1._R8P)
endprogram volatile_doctest