summaryrefslogtreecommitdiffstats
path: root/src/fortranscanner.l
diff options
context:
space:
mode:
authoralbert-github <albert.tests@gmail.com>2013-12-01 13:29:38 (GMT)
committeralbert-github <albert.tests@gmail.com>2013-12-01 13:29:38 (GMT)
commit38261ebeca17dc0f51e8c9fb5fd7c497a549fc9b (patch)
tree0508c70360f01f4609fb5fc5ffa393e6ab5a403b /src/fortranscanner.l
parent58058025a8357dcba0da4be0f6c3ddfec8c37839 (diff)
downloadDoxygen-38261ebeca17dc0f51e8c9fb5fd7c497a549fc9b.zip
Doxygen-38261ebeca17dc0f51e8c9fb5fd7c497a549fc9b.tar.gz
Doxygen-38261ebeca17dc0f51e8c9fb5fd7c497a549fc9b.tar.bz2
Fortran added keyword IMPURE
Added keyword IMPURE analogous to keyword PURE
Diffstat (limited to 'src/fortranscanner.l')
-rw-r--r--src/fortranscanner.l6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/fortranscanner.l b/src/fortranscanner.l
index 3cafc76..0d0fdde 100644
--- a/src/fortranscanner.l
+++ b/src/fortranscanner.l
@@ -265,7 +265,7 @@ LANGUAGE_BIND_SPEC BIND{BS}"("{BS}C{BS}(,{BS}NAME{BS}"="{BS}"\""(.*)"\""{BS})?")
ATTR_STMT {ATTR_SPEC}|DIMENSION|{ACCESS_SPEC}
CONTAINS CONTAINS
-PREFIX (RECURSIVE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,2}(RECURSIVE|PURE|ELEMENTAL)?
+PREFIX (RECURSIVE{BS_}|IMPURE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,3}(RECURSIVE|IMPURE|PURE|ELEMENTAL)?
SCOPENAME ({ID}{BS}"::"{BS})*
%option noyywrap
@@ -1170,11 +1170,11 @@ static void extractPrefix(QCString &text)
int prefixIndex = 0;
int curIndex = 0;
bool cont = TRUE;
- const char* pre[] = {"RECURSIVE","PURE","ELEMENTAL"};
+ const char* pre[] = {"RECURSIVE","IMPURE","PURE","ELEMENTAL"};
while(cont)
{
cont = FALSE;
- for(unsigned int i=0; i<3; i++)
+ for(unsigned int i=0; i<4; i++)
{
if((prefixIndex=text.find(pre[i], curIndex, FALSE))==0)
{