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/fortrancode.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/fortrancode.l')
| -rw-r--r-- | src/fortrancode.l | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/fortrancode.l b/src/fortrancode.l index 842debf..8ee825b 100644 --- a/src/fortrancode.l +++ b/src/fortrancode.l @@ -684,14 +684,14 @@ CHAR (CHARACTER{ARGS}?|CHARACTER{BS}"*"({BS}[0-9]+|{ARGS})) TYPE_SPEC (({NUM_TYPE}({BS}"*"{BS}[0-9]+)?)|({NUM_TYPE}{KIND})|DOUBLE{BS_}COMPLEX|DOUBLE{BS_}PRECISION|{CHAR}) INTENT_SPEC intent{BS}"("{BS}(in|out|in{BS}out){BS}")" -ATTR_SPEC (IMPLICIT|ALLOCATABLE|DIMENSION{ARGS}|EXTERNAL|{INTENT_SPEC}|INTRINSIC|OPTIONAL|PARAMETER|POINTER|PROTECTED|PRIVATE|PUBLIC|SAVE|TARGET|RECURSIVE|PURE|ELEMENTAL) +ATTR_SPEC (IMPLICIT|ALLOCATABLE|DIMENSION{ARGS}|EXTERNAL|{INTENT_SPEC}|INTRINSIC|OPTIONAL|PARAMETER|POINTER|PROTECTED|PRIVATE|PUBLIC|SAVE|TARGET|RECURSIVE|PURE|IMPURE|ELEMENTAL) ACCESS_SPEC (PROTECTED|PRIVATE|PUBLIC) /* Assume that attribute statements are almost the same as attributes. */ ATTR_STMT {ATTR_SPEC}|DIMENSION FLOW (DO|SELECT|CASE|WHERE|IF|THEN|ELSE|WHILE|FORALL|ELSEWHERE|ELSEIF|RETURN|CONTINUE|EXIT) COMMANDS (FORMAT|CONTAINS|MODULE{BS_}PROCEDURE|WRITE|READ|ALLOCATE|ALLOCATED|ASSOCIATED|DEALLOCATE|SIZE|INQUIRE|OPEN|CLOSE|DATA|COMMON) IGNORE (CALL) -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)? /* | */ |