HybridDog/geany
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix tag generation for Fortran with 'forall' blocks

Browse Source 
* Add 'forall' as a keyword
* Add a check that allows 'forall' as a secondary keyword in
  'end' statements.
This commit is contained in:
Alexander Eberspächer 2013-06-11 15:09:05 +02:00 committed by Colomban Wendling
parent 4a199f8505
commit 2f31f7477b
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tagmanager/ctags/fortran.c
View File

@ -84,6 +84,7 @@ typedef enum eKeywordId {
KEYWORD_equivalence,
KEYWORD_extends,
KEYWORD_external,
KEYWORD_forall,
KEYWORD_format,
KEYWORD_function,
KEYWORD_if,
@ -249,6 +250,7 @@ static const keywordDesc FortranKeywordTable [] = {
{ "equivalence", KEYWORD_equivalence },
{ "extends", KEYWORD_extends },
{ "external", KEYWORD_external },
{ "forall", KEYWORD_forall },
{ "format", KEYWORD_format },
{ "function", KEYWORD_function },
{ "if", KEYWORD_if },
@ -2045,7 +2047,8 @@ static boolean parseExecutionPart (tokenInfo *const token)
if (isSecondaryKeyword (token, KEYWORD_do) ||
isSecondaryKeyword (token, KEYWORD_if) ||
isSecondaryKeyword (token, KEYWORD_select) ||
isSecondaryKeyword (token, KEYWORD_where))
isSecondaryKeyword (token, KEYWORD_where) ||
isSecondaryKeyword (token, KEYWORD_forall))
{
skipToNextStatement (token);
result = TRUE;