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