blob: 4b12c9fb979da92c1e69f8c7cd383d541959882f [file] [log] [blame]
-- { dg-do run }
with GNAT.Regpat; use GNAT.Regpat;
procedure Quote is
begin
if Quote (".+") /= "\.\+" then
raise Program_Error;
end if;
end Quote;