OSDN Git Service

Add NIOS2 support. Code from SourceyG++.
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gnat.dg / tf_interface_1.adb
1 --  { dg-do compile }
2 package 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;
8 end;