how can i allocate an objekt with initialization???

[Thomas Bruns <newsgroup@donbruno.de>]

Hello

i have a problem, with initialzie objekt with ada...

i want to do a new, to allocate the objekt... 

--------------------------------------------------------------
with ADA.FINALIZATION; use ADA.FINALIZATION;
package class_test_package is

 type FATHER_CLASS is new CONTROLLED with
  record
   INT1 : INTEGER;
  end record;

 type FATHER_CLASS_PTR is access FATHER_CLASS'Class;
 
 function GETINT1 return INTEGER is abstract;

end class_test_package;

with class_test_package; use class_test_package;
package class_test_package_ableitung is

type CHILD_CLASS is new FATHER_CLASS with private;

type CHILD_CLASS_PTR is access CHILD_CLASS'CLASS;
private

 procedure Initialize (OBJECT : in out KIND_CLASS);
 
 procedure Finalize  (OBJECT : in out KIND_CLASS);
 
 procedure ADJUST (OBJECT : in out KIND_CLASS);
  
 type CHILD_CLASS is new FATHER_CLASS with
  record
   INT2 : INTEGER;
  end record;

end class_test_package_ableitung;


main:

TEST : FATHER_CLASS_PTR;

begin
 TEST:= new CHILD_CLASS'(INT=>1); -- i will initialze the objekt here,but 
       -- it wrong??
--class_test.adb:11:57: expected private type "KIND_CLASS" defined at
--class_test_package_ableitung.ads:16
--class_test.adb:11:57: found a composite type

end;