Commit b2e9aa36 authored by albert-github's avatar albert-github
Browse files

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.
parent 540f0b66

src/fortrancode.l

+11 −3
Original line number Original line Diff line number Diff line
@@ -991,10 +991,18 @@ PREFIX (RECURSIVE{BS_}|IMPURE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,3}(RECURSIVE|I 
	                                  yy_pop_state();

	                                  yy_pop_state();

                                        }

                                        }

<Start>{ID}{BS}/"("                     { // function call

<Start>{ID}{BS}/"("                     { // function call

                                          if (g_isFixedForm && yy_my_start == 6)

                                          {

                                            // fixed form continuation line

                                            YY_FTN_REJECT;

                                          }

                                          else

                                          {

					    g_insideBody=TRUE;

					    g_insideBody=TRUE;

                                            generateLink(*g_code, yytext);

                                            generateLink(*g_code, yytext);

					    g_insideBody=FALSE;

					    g_insideBody=FALSE;

                                          }

                                          }

                                        }





 /*-------- comments ---------------------------------------------------*/

 /*-------- comments ---------------------------------------------------*/

<Start>\n?{BS}"!>"|"!<"                 { // start comment line or comment block

<Start>\n?{BS}"!>"|"!<"                 { // start comment line or comment block