1 files changed, 9 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/quote.adb b/gcc/testsuite/gnat.dg/quote.adb
new file mode 100644
index 000000000..4b12c9fb9
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/quote.adb
@@ -0,0 +1,9 @@
+--  { dg-do run }
+
+with GNAT.Regpat; use GNAT.Regpat;
+procedure Quote is
+begin   
+  if Quote (".+") /= "\.\+" then
+     raise Program_Error;
+  end if;
+end Quote;