diff --git a/src/lsp/cobol_preproc/src_lexer.mll b/src/lsp/cobol_preproc/src_lexer.mll
index 060beb41f..7390080ad 100644
--- a/src/lsp/cobol_preproc/src_lexer.mll
+++ b/src/lsp/cobol_preproc/src_lexer.mll
@@ -515,11 +515,15 @@ and free_nominal state
 
 and gobble_line state
   = parse
-  | (nnl* newline)
+  | (nnl+)
+      {
+        gobble_line (Src_lexing.skip state lexbuf) lexbuf
+      }
+  | newline
       {
         Src_lexing.new_line state lexbuf
       }
-  | (nnl* eof)
+  | eof
       {
         Src_lexing.(flush @@ eof state lexbuf)
       }
diff --git a/src/lsp/cobol_preproc/src_lexing.ml b/src/lsp/cobol_preproc/src_lexing.ml
index 31e0218c2..62b1a00ad 100644
--- a/src/lsp/cobol_preproc/src_lexing.ml
+++ b/src/lsp/cobol_preproc/src_lexing.ml
@@ -131,6 +131,11 @@ let raw_loc ~start_pos ~end_pos { newline; config = { source_format; _ }; _ } =
 let ignore_lexloc ~start_pos ~end_pos state =
   { state with ignored = (start_pos, end_pos) :: state.ignored }
 
+let skip state lexbuf =
+  ignore_lexloc state
+    ~start_pos:(Lexing.lexeme_start_p lexbuf)
+    ~end_pos:(Lexing.lexeme_end_p lexbuf)
+
 let emit prod ({ pseudotext; cdir_seen; _ } as state) =
   match pseudotext with
   | None ->
diff --git a/src/lsp/cobol_preproc/src_lexing.mli b/src/lsp/cobol_preproc/src_lexing.mli
index eefbb4fb9..82e54a4d9 100644
--- a/src/lsp/cobol_preproc/src_lexing.mli
+++ b/src/lsp/cobol_preproc/src_lexing.mli
@@ -26,6 +26,7 @@ val flush: 'a state -> 'a state * Text.text
 val flush_continued: ?force:bool -> 'a state -> 'a state
 val eof: 'a state -> Lexing.lexbuf -> 'a state
 val new_line: 'a state -> Lexing.lexbuf -> 'a state * Text.text
+val skip: 'a state -> Lexing.lexbuf -> 'a state
 
 val comment
   : ?marker:string