diff options
Diffstat (limited to 'src/fortranscanner.l')
-rw-r--r-- | src/fortranscanner.l | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/src/fortranscanner.l b/src/fortranscanner.l index cb6a9f9..3156eb1 100644 --- a/src/fortranscanner.l +++ b/src/fortranscanner.l @@ -527,7 +527,7 @@ PREFIX (RECURSIVE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,2}(RECURSIVE|PURE|ELEMENTA /*------- module/global/typedef variable ---------------------------------------------------*/ -<SubprogBody,SubprogBodyContains>^{BS}"end"({BS}{SUBPROG}({BS_}{ID})?)?{BS}/(\n|!) { +<SubprogBody,SubprogBodyContains>^{BS}[0-9]*{BS}"end"({BS}{SUBPROG}({BS_}{ID})?)?{BS}/(\n|!) { //fprintf(stderr,"1e=========> got end subprog: %s\n", yytext); /* args is used for parameters in list of functions, argList for @@ -696,7 +696,7 @@ PREFIX (RECURSIVE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,2}(RECURSIVE|PURE|ELEMENTA // TYPE_SPEC is for old function style function result result= yytext; result= result.stripWhiteSpace(); - extractPrefix(result); + //extractPrefix(result); //fprintf(stderr, "===%s\n", (const char*)result); current->type = result; yy_push_state(SubprogPrefix); @@ -712,7 +712,7 @@ PREFIX (RECURSIVE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,2}(RECURSIVE|PURE|ELEMENTA // Fortran subroutine or function found result= yytext; result= result.stripWhiteSpace(); - extractPrefix(result); + //extractPrefix(result); addSubprogram(result); yy_push_state(Subprog); } @@ -841,7 +841,9 @@ PREFIX (RECURSIVE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,2}(RECURSIVE|PURE|ELEMENTA %% //---------------------------------------------------------------------------- -static void extractPrefix(QCString &text) { +#if 0 +static void extractPrefix(QCString &text) +{ int prefixIndex = 0; int curIndex = 0; bool cont = TRUE; @@ -860,6 +862,7 @@ static void extractPrefix(QCString &text) { } } } +#endif static int getAmpersandAtTheStart(const char *buf, int length) { |