diff options
| -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} {} |