diff options
| author | albert-github <albert.tests@gmail.com> | 2014-12-08 10:35:09 (GMT) |
|---|---|---|
| committer | albert-github <albert.tests@gmail.com> | 2014-12-08 10:35:09 (GMT) |
| commit | b2e9aa362540cae4487e48598fb7e80b8651752f (patch) | |
| tree | 270b2f2160be7d43c59e03b1fe0163692889afdb /src/fortrancode.l | |
| parent | 540f0b66972c03fd53c97174e1680230b8dd4026 (diff) | |
| download | Doxygen-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.
Diffstat (limited to 'src/fortrancode.l')
| -rw-r--r-- | src/fortrancode.l | 14 |
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 ---------------------------------------------------*/ |