gcc/testsuite/gnat.dg/regpat1.adb

   1 --  { dg-do run }
   2
   3 with GNAT.Regpat; use GNAT.Regpat;
   4 procedure regpat1 is
   5 begin
   6    declare
   7       Re : Pattern_Matcher := Compile ("a[]b");
   8    begin
   9       raise Program_Error;
  10    end;
  11 exception
  12    when Expression_Error => null;
  13 end regpat1;