gcc/testsuite/gnat.dg/graphic.ads

   1 with Ada.Streams;
   2 with Ada.Tags;
   3 package Graphic is
   4   use Ada;
   5 --
   6   type Object is abstract tagged null record;
   7   function XML_Input (S : access Streams.Root_Stream_Type'Class)
   8      return Object'Class;
   9 end Graphic;