Changing the 2nd argument of substring due to errors in indexing fort…

…ran code by FortranXref.lex
oracle · Nov 16, 2024 · a9a10ab · a9a10ab
1 parent b57a375
commit a9a10ab
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/opengrok-indexer/src/main/jflex/analysis/fortran/FortranXref.lex b/opengrok-indexer/src/main/jflex/analysis/fortran/FortranXref.lex
@@ -93,7 +93,7 @@ File = [a-zA-Z]{FNameChar}* "." ("i"|"inc")
     onNonSymbolMatched(cmatch.substring(0, 1), yychar);
     String file = cmatch.substring(1, cmatch.length() - 1);
     onFilelikeMatched(file, yychar + 1);
-    onNonSymbolMatched(cmatch.substring(cmatch.length() - 1, 1), yychar + 1 + file.length());
+    onNonSymbolMatched(cmatch.substring(cmatch.length() - 1, cmatch.length()), yychar + 1 + file.length());
 }
 
 /*{Hier}