#2813

Parsers/PascalABCParserNewSaushkin/SemanticRules.cs

@@ -489,11 +489,21 @@ namespace GPPGParserScanner
                     }
                         
                 }
+                
                 string str2 = sb.ToString();
                 if (str2.Trim().EndsWith("{"))
                 {
-                    parsertools.errors.Add(new bad_format_string(parsertools.CurrentFileName, str.source_context, str));
+                    int cnt = 0;
-                    return str;
+                    string tmp = str2.Trim();
+                    for (var i = 0; i < tmp.Length; i++)
+                        if (tmp[i] == '{')
+                            cnt++;
+                    if (cnt % 2 == 1)
+                    {
+                        parsertools.errors.Add(new bad_format_string(parsertools.CurrentFileName, str.source_context, str));
+                        return str;
+                    }
+                        
                 }
                 mc.parameters.Add(new string_const(str2, str.source_context), str.source_context);
                 for (int i = 0; i < vars.Count; i++)

TestSuite/errors/err0519_format_string.pas

@@ -0,0 +1,3 @@
+begin
+  var s := $'{{{';
+end.

TestSuite/formatstring9.pas

@@ -0,0 +1,6 @@
+begin
+  var s := $'{{';
+  assert(s = '{');
+  s := $'{{{{';
+  assert(s = '{{');
+end.