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