diff options
author | Dimitri van Heesch <dimitri@stack.nl> | 2014-08-02 12:27:13 (GMT) |
---|---|---|
committer | Dimitri van Heesch <dimitri@stack.nl> | 2014-08-02 12:27:13 (GMT) |
commit | 9435bf0b7e5d381bf42eb92bc163ca1bf71c8f15 (patch) | |
tree | 2a23d659ff218d915183dacbfccee7c37dadfb48 | |
parent | eabb59cb4f33644be43315f539f21abc6c78348e (diff) | |
parent | aac81f8bfe8298aa0839bb2d7c70ea75149cdffb (diff) | |
download | Doxygen-9435bf0b7e5d381bf42eb92bc163ca1bf71c8f15.zip Doxygen-9435bf0b7e5d381bf42eb92bc163ca1bf71c8f15.tar.gz Doxygen-9435bf0b7e5d381bf42eb92bc163ca1bf71c8f15.tar.bz2 |
Merge pull request #203 from albert-github/feature/bug_733856
Bug 733856 - segfault in QGListIterator while parsing fortran code
-rw-r--r-- | src/fortrancode.l | 2 | ||||
-rw-r--r-- | src/fortranscanner.l | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/src/fortrancode.l b/src/fortrancode.l index e6cfdde..03baeed 100644 --- a/src/fortrancode.l +++ b/src/fortrancode.l @@ -1128,6 +1128,8 @@ PREFIX (RECURSIVE{BS_}|IMPURE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,3}(RECURSIVE|I } YY_FTN_RESET } +<*>^{BS}"type"{BS}"=" { g_code->codify(yytext); } + <*>. { g_code->codify(yytext); } diff --git a/src/fortranscanner.l b/src/fortranscanner.l index 449b05d..1f52110 100644 --- a/src/fortranscanner.l +++ b/src/fortranscanner.l @@ -739,6 +739,7 @@ private { {ID} { } ^{BS}"type"{BS_}"is"/{BS_} { } +^{BS}"type"{BS}"=" { } } <AttributeList>{ {COMMA} {} |