program testpointer

use md_ptr

implicit none 

call call_alloc(100)

write(*,*) res(1:2), dat(1:2)% res

end program




