gcc/testsuite/gnat.dg/graphic.adb

   1 -- { dg-do compile }
   2
   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);
  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;
  19 end Graphic;
  20