1--  { dg-do run }
2
3with GNAT.Regpat; use GNAT.Regpat;
4procedure Quote is
5begin
6  if Quote (".+") /= "\.\+" then
7     raise Program_Error;
8  end if;
9end Quote;
10