package test_new_access is
    type t_greyimage_store is array (natural range <>) of natural;
    type t_ptr_greyimage is access t_greyimage_store;
end package;
 
package body test_new_access is
    procedure create_image2 (i    : inout t_ptr_greyimage) is
    begin 
        i := new t_ptr_greyimage(0 to 127);
    end procedure ;
end package body;