1 files changed, 20 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/graphic.adb b/gcc/testsuite/gnat.dg/graphic.adb
new file mode 100644
index 000000000..282f46ddd
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/graphic.adb
@@ -0,0 +1,20 @@
+-- { dg-do compile }
+
+with Ada.Tags.Generic_Dispatching_Constructor;
+package body Graphic is
+--
+  function Dispatching_Input is new Tags.Generic_Dispatching_Constructor
+    (T           => Object,
+     Parameters  => Streams.Root_Stream_Type'Class,
+    Constructor => Object'Input);
+--
+  function XML_Input
+    (S : access Streams.Root_Stream_Type'Class) return Object'Class
+  is
+    Result : constant Object'Class :=
+        Dispatching_Input (Tags.Internal_Tag (" "), S);
+    begin
+      return Result;
+    end XML_Input;
+end Graphic;
+