Merge from mainline (165734:167278).

[official-gcc/graphite-test-results.git] / gcc / testsuite / gnat.dg / graphic.ads

with Ada.Streams;
with Ada.Tags;
package Graphic is
  use Ada;
--
  type Object is abstract tagged null record;
  function XML_Input (S : access Streams.Root_Stream_Type'Class)
     return Object'Class;
end Graphic;