diff options
| author | albert-github <albert.tests@gmail.com> | 2013-12-01 13:29:38 (GMT) |
|---|---|---|
| committer | albert-github <albert.tests@gmail.com> | 2013-12-01 13:29:38 (GMT) |
| commit | 38261ebeca17dc0f51e8c9fb5fd7c497a549fc9b (patch) | |
| tree | 0508c70360f01f4609fb5fc5ffa393e6ab5a403b /src/fortranscanner.l | |
| parent | 58058025a8357dcba0da4be0f6c3ddfec8c37839 (diff) | |
| download | Doxygen-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.l | 6 |
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) { |