roup::lexer

Function lex_fortran_fixed_sentinel

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

Parse Fortran fixed-form sentinel “!$OMP” or “C$OMP” in columns 1-6 (case-insensitive)

Supports leading whitespace before the sentinel:

  • “!$OMP PARALLEL” -> matches
  • “ !$OMP PARALLEL“ -> matches (leading spaces consumed)
  • “C$OMP DO” -> matches
  • “*$OMP END PARALLEL” -> matches