program volatile_doctest
use penf_allocatable_memory
 use penf
 real(R8P), allocatable :: a(:,:,:,:,:)
 integer(I4P)           :: ulb(2,5)=reshape([1,1, &
                                             1,2, &
                                             1,3, &
                                             1,4, &
                                             1,5],&
                                            [2,5])
 call allocate_variable(a, ulb)
 print*, allocated(a)
endprogram volatile_doctest