Re: limited private types

[tmoran@bix.com]

>The "access" technique does not work because text_io.close takes an "in
>out" parameter and gnat complains that the "access".all is not
>a "variable".
       This runs just fine with Gnat 3.12p NT:
with ada.text_io;
 use ada.text_io;
procedure Test is
  type ptrs is access file_type;
  p : ptrs;
begin
  p := new file_type;
  create(p.all, out_file, "pall");
  put_line(p.all, "hello world");
  close(p.all);
end Test;