Fix edge case with line continuation splitting escaped quote

Author: ZedThree

src/scanner.c

@@ -361,9 +361,11 @@ static bool scan_string_literal(TSLexer *lexer) {
         // both of them
         if (lexer->lookahead == opening_quote) {
             advance(lexer);
-            // It was just one quote, so we've successfully reached the
-            // end of the literal
-            if (lexer->lookahead != opening_quote) {
+            // It was just one quote, so we've successfully reached
+            // the end of the literal. We also need to check that an
+            // escaped quote isn't split in half by a line
+            // continuation -- people do this!
+            if (skip_literal_continuation_sequence(lexer) && lexer->lookahead != opening_quote) {
                 return true;
             }
         }

test/corpus/line_continuations.txt

@@ -200,6 +200,10 @@ program test
   print*, "12&bar"
   print*, "&
     &hello"
+  print*, "this is "&
+    &"one string"
+  print*, "this is "&
+    & // "two strings"
 end program
 
 --------------------------------------------------------------------------------
@@ -216,6 +220,16 @@ end program
       (format_identifier)
       (output_item_list
         (string_literal)))
+    (print_statement
+      (format_identifier)
+      (output_item_list
+        (string_literal)))
+    (print_statement
+      (format_identifier)
+      (output_item_list
+        (concatenation_expression
+          (string_literal)
+          (string_literal))))
     (end_program_statement)))
 
 ================================================================================