Function lex_fortran_free_sentinel

Source
pub fn lex_fortran_free_sentinel(input: &str) -> IResult<&str, &str>
Expand description

Parse Fortran free-form sentinel “!$OMP” (case-insensitive)

Supports leading whitespace before the sentinel (common for indented code):

  • “!$OMP PARALLEL” -> matches
  • “ !$OMP PARALLEL“ -> matches (leading spaces consumed)
  • “ \t!$OMP DO“ -> matches (mixed whitespace consumed)