I like this access type example

[James Unterburger]

It doesn't really do a whole lot.


entity e is
end;

architecture a of e is
type ptr;
type ptr is access ptr;
begin
process
variable p : ptr;
variable top : ptr;
begin
top := new ptr;
p := top;
for i in 1 to 100 loop
p.all := new ptr;
p := p.all;
end loop;
wait;
end process;
end;