1-- { dg-do compile } 2package body TF_Interface_1 is 3 procedure Get_It (Handle : Stream_Access; It : out CF_Interface_1'class) 4 is 5 begin 6 CF_Interface_1'Class'Read (Handle, It); 7 end; 8end; 9