From b2e9aa362540cae4487e48598fb7e80b8651752f Mon Sep 17 00:00:00 2001 From: albert-github Date: Mon, 8 Dec 2014 11:35:09 +0100 Subject: [PATCH] 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. --- src/fortrancode.l | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) diff --git a/src/fortrancode.l b/src/fortrancode.l index 101137af0dd..5ecc79eadae 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(); } {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 ---------------------------------------------------*/