1 files changed, 63 insertions, 0 deletions
diff --git a/gcc/testsuite/gcc.dg/graphite/id-pr43464.c b/gcc/testsuite/gcc.dg/graphite/id-pr43464.c
new file mode 100644
index 00000000000..a8e67dc2bf5
--- /dev/null
+++ b/gcc/testsuite/gcc.dg/graphite/id-pr43464.c
@@ -0,0 +1,63 @@
+typedef struct sv SV;
+typedef struct regnode
+{
+  char flags;
+} regnode;
+typedef struct regexp
+{
+} regexp;
+typedef struct cop
+{
+  SV *cop_warnings;
+} COP;
+extern const unsigned char PL_utf8skip[];
+extern char PL_dowarn;
+extern COP *volatile PL_curcop;
+char *
+S_find_byclass (regexp * prog, regnode * c, char *s, char *strend,
+		char *startpos, int norun)
+{
+  register long unsigned int uskip;
+  char *e;
+  switch (((c)->flags))
+    {
+    case 17:
+	{
+	  while (s + (uskip = PL_utf8skip[*s]) <= strend)
+	    {
+	      if (c->flags || S_reginclass (c))
+		  if (norun || S_regtry (prog, s))
+		    goto got_it;
+	      s += uskip;
+	    }
+	  unsigned long c, f;
+	  long unsigned int len;
+	    {
+	      while (s <= e)
+		{
+		  c = Perl_utf8n_to_uvuni (s, 13, &len,
+					   (((PL_curcop->cop_warnings !=
+					      ((SV *) ((void *) 0)))
+					     && PL_dowarn)) ? 0 : 0x00FF);
+		  if (c == 0 && (norun || S_regtry (prog, s)))
+		      if (f != c && (norun || S_regtry (prog, s)))
+			goto got_it;
+		}
+	    }
+	}
+    }
+got_it:
+  return s;
+}
+Perl_re_intuit_start (regexp * prog)
+{
+  S_find_byclass (prog, 0, 0, 0, 0, 1);
+}
+Perl_regexec_flags (register regexp * prog,
+		    register char *strend)
+{
+  S_find_byclass (prog, 0, 0, strend, 0, 0);
+}
+S_regtry (regexp * prog, char *startpos)
+{
+}