2018-03-15 Steven G. Kargl <kargl@gcc.gnu.org>
[official-gcc.git] / gcc / testsuite / gnat.dg / graphic.adb
blob282f46dddc8aeac6e8ebb36048d53fe6714023e8
1 -- { dg-do compile }
3 with Ada.Tags.Generic_Dispatching_Constructor;
4 package body Graphic is
5 --
6 function Dispatching_Input is new Tags.Generic_Dispatching_Constructor
7 (T => Object,
8 Parameters => Streams.Root_Stream_Type'Class,
9 Constructor => Object'Input);
11 function XML_Input
12 (S : access Streams.Root_Stream_Type'Class) return Object'Class
14 Result : constant Object'Class :=
15 Dispatching_Input (Tags.Internal_Tag (" "), S);
16 begin
17 return Result;
18 end XML_Input;
19 end Graphic;