Inheritance question...

[Marc Bejerano <mbejeran@pacbell.net>]

I have a package called foo...

package foo is
  type bar is tagged private;
  type bar1 is new bar with private;

  .
  .
  .

private
  type bar is tagged record
    v: integer;
  end record;

  type bar1 is new bar with record
    vv: character;
  end record;
end foo;

when I try to create a descendent type in my main procedure I get:

  "type extension at deeper accessibility level than parent"

here's my "simplified" main procedure:

with foo; use foo;

procedure foofoo is
  type my_bar is new bar1 with record
    s: string(1..128);
  end record;
begin
.
.
.
end foofoo;

what am I doing wrong?

TIA, Marc