diff options
| author | dimitri <dimitri@afe2bf4a-e733-0410-8a33-86f594647bc7> | 2008-03-07 19:55:05 (GMT) |
|---|---|---|
| committer | dimitri <dimitri@afe2bf4a-e733-0410-8a33-86f594647bc7> | 2008-03-07 19:55:05 (GMT) |
| commit | b43cd6311a712c01c2c8297fa00809730e504d70 (patch) | |
| tree | 74a4cb6c6c83c3b41a92ba1da8df0235abd2dafe /src/fortranscanner.l | |
| parent | 95fd5f1c991ee66f7122801276a133ebfce86aaa (diff) | |
| download | Doxygen-b43cd6311a712c01c2c8297fa00809730e504d70.zip Doxygen-b43cd6311a712c01c2c8297fa00809730e504d70.tar.gz Doxygen-b43cd6311a712c01c2c8297fa00809730e504d70.tar.bz2 | |
Release-1.5.5-20080307
Diffstat (limited to 'src/fortranscanner.l')
| -rw-r--r-- | src/fortranscanner.l | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/fortranscanner.l b/src/fortranscanner.l index 285bc24..12104c0 100644 --- a/src/fortranscanner.l +++ b/src/fortranscanner.l @@ -325,7 +325,7 @@ ATTR_STMT {ATTR_SPEC}|DIMENSION|{ACCESS_SPEC} yy_push_state(InterfaceBody); startScope(last_entry); } -<InterfaceBody>"end"({BS_}"interface")?.* { +<InterfaceBody>^{BS}"end"({BS_}"interface")? { if (!endScope(current_root)) yyterminate(); yy_pop_state(); @@ -349,7 +349,7 @@ ATTR_STMT {ATTR_SPEC}|DIMENSION|{ACCESS_SPEC} BEGIN(Module); defaultProtection = Public; } -<Start,ModuleBody>"end"({BS_}(module|program))?.* { // end module +<Start,ModuleBody>^{BS}"end"({BS_}(module|program))?{BS} { // end module resolveModuleProcedures(moduleProcedures, current_root); if (!endScope(current_root)) yyterminate(); @@ -415,7 +415,7 @@ ATTR_STMT {ATTR_SPEC}|DIMENSION|{ACCESS_SPEC} /*------- module/global/typedef variable ---------------------------------------------------*/ -<SubprogBody>"end"({BS_}{SUBPROG})?.* { +<SubprogBody>^{BS}"end"({BS_}{SUBPROG})?{BS} { //cout << "1e=========> got end subprog: " << yytext << endl; /* args is used for parameters in list of functions, argList for |