fix #985

Parsers/PascalABCParserNewSaushkin/SemanticRules.cs

@@ -413,8 +413,8 @@ namespace GPPGParserScanner
                 method_call mc = new method_call();
                 mc.dereferencing_value = new dot_node(new ident("string", str.source_context), new ident("Format", str.source_context), str.source_context);
                 mc.parameters = new expression_list();
-                //string[] arr = Regex.Split(str.Value, @"\{[\w\d._]+\}");
-                //Match match = Regex.Match(str.Value, @"\{[\w\d._]+\}");
+                if (!str.Value.Contains("{"))
+                    return str;
                 string val = str.Value.Replace("{{","![&").Replace("}}}","}&]!").Replace("}}", "&]!");
                 string[] arr = Regex.Split(val, @"\{[^\}]+\}");
                 Match match = Regex.Match(val, @"\{[^\}]+\}");

TestSuite/formatstring2.pas

@@ -8,4 +8,5 @@
   assert(s = '2,3,4');
   s := $'{a+1},{b+1},{c+1}';
   assert(s = '3,4,5');
+  assert($'abc'=$'abc');
 end.