1 files changed, 23 insertions, 0 deletions
diff --git a/gcc/testsuite/gcc.c-torture/compile/pr19121.c b/gcc/testsuite/gcc.c-torture/compile/pr19121.c
new file mode 100644
index 000000000..b8f4c21f9
--- /dev/null
+++ b/gcc/testsuite/gcc.c-torture/compile/pr19121.c
@@ -0,0 +1,23 @@
+typedef struct interpreter {
+  char Itokenbuf[256];
+} PerlInterpreter;
+static inline void S_missingterm(char *s)
+{
+  char tmpbuf[3] = "";
+  char q;
+  if (!s)
+    s = tmpbuf;
+  q = strchr(s,'"') ? '\'' : '"';
+}
+void S_scan_heredoc(PerlInterpreter *my_perl, char *s, int i)
+{
+  char term;
+  term = *my_perl->Itokenbuf;
+  if (i)
+  {
+    *s = term;
+    S_missingterm(my_perl->Itokenbuf);
+  }
+  else
+    S_missingterm(my_perl->Itokenbuf);
+}