1-- { dg-do compile } 2 3with Ada.Tags.Generic_Dispatching_Constructor; 4package 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); 10-- 11 function XML_Input 12 (S : access Streams.Root_Stream_Type'Class) return Object'Class 13 is 14 Result : constant Object'Class := 15 Dispatching_Input (Tags.Internal_Tag (" "), S); 16 begin 17 return Result; 18 end XML_Input; 19end Graphic; 20 21