summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authoralbert-github <albert.tests@gmail.com>2014-12-08 10:35:09 (GMT)
committeralbert-github <albert.tests@gmail.com>2014-12-08 10:35:09 (GMT)
commitb2e9aa362540cae4487e48598fb7e80b8651752f (patch)
tree270b2f2160be7d43c59e03b1fe0163692889afdb
parent540f0b66972c03fd53c97174e1680230b8dd4026 (diff)
downloadDoxygen-b2e9aa362540cae4487e48598fb7e80b8651752f.zip
Doxygen-b2e9aa362540cae4487e48598fb7e80b8651752f.tar.gz
Doxygen-b2e9aa362540cae4487e48598fb7e80b8651752f.tar.bz2
Fortran continuation character seen as begin of function call
In case in fixed format code a line like: " x ( " existed and the x was on position 6 the "x (" was seen as the start of a function call.
-rw-r--r--src/fortrancode.l14
1 files changed, 11 insertions, 3 deletions
diff --git a/src/fortrancode.l b/src/fortrancode.l
index 101137a..5ecc79e 100644
--- a/src/fortrancode.l
+++ b/src/fortrancode.l
@@ -991,9 +991,17 @@ PREFIX (RECURSIVE{BS_}|IMPURE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,3}(RECURSIVE|I
yy_pop_state();
}
<Start>{ID}{BS}/"(" { // function call
- g_insideBody=TRUE;
- generateLink(*g_code, yytext);
- g_insideBody=FALSE;
+ if (g_isFixedForm && yy_my_start == 6)
+ {
+ // fixed form continuation line
+ YY_FTN_REJECT;
+ }
+ else
+ {
+ g_insideBody=TRUE;
+ generateLink(*g_code, yytext);
+ g_insideBody=FALSE;
+ }
}
/*-------- comments ---------------------------------------------------*/