summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/graphic.ads
blob: a1153de649db3f44b480d1f96c3a389a9cc79e0d (plain)
1
2
3
4
5
6
7
8
9
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;