summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/tf_interface_1.adb
blob: 352e7e4a8328aa884f122d5b3b070dfb661c209a (plain)
1
2
3
4
5
6
7
8
--  { dg-do compile }
package body TF_Interface_1 is
   procedure Get_It (Handle : Stream_Access; It : out CF_Interface_1'class)
  is
  begin
     CF_Interface_1'Class'Read (Handle, It);
  end;
end;