OSDN Git Service

* gcc.dg/march.c: Ignore a note for some targets.
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gnat.dg / quote.adb
1 --  { dg-do run }
2
3 with GNAT.Regpat; use GNAT.Regpat;
4 procedure Quote is
5 begin   
6   if Quote (".+") /= "\.\+" then
7      raise Program_Error;
8   end if;
9 end Quote;