diff options
| author | Dimitri van Heesch <dimitri@stack.nl> | 2012-02-25 15:18:56 (GMT) |
|---|---|---|
| committer | Dimitri van Heesch <dimitri@stack.nl> | 2012-02-25 15:18:56 (GMT) |
| commit | cff8111ed33af6033bd188868964d92ea3503188 (patch) | |
| tree | 2a7451abfd771d43ea2b3ac2443d94c3eb5cfee7 /src/fortrancode.l | |
| parent | 34d4ace6d4037862b6d280f1d7534292c714bf59 (diff) | |
| download | Doxygen-cff8111ed33af6033bd188868964d92ea3503188.zip Doxygen-cff8111ed33af6033bd188868964d92ea3503188.tar.gz Doxygen-cff8111ed33af6033bd188868964d92ea3503188.tar.bz2 | |
Release-1.8.0
Diffstat (limited to 'src/fortrancode.l')
| -rw-r--r-- | src/fortrancode.l | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/fortrancode.l b/src/fortrancode.l index f111e58..d7766f4 100644 --- a/src/fortrancode.l +++ b/src/fortrancode.l @@ -652,6 +652,7 @@ ARGS_L2 "("({ARGS_L0}|[^()]|{ARGS_L1a}|{ARGS_L1})*")" ARGS {BS}({ARGS_L0}|{ARGS_L1}|{ARGS_L2}) NUM_TYPE (complex|integer|logical|real) +LOG_OPER (\.and\.|\.eq\.|\.eqv\.|\.ge\.|\.gt\.|\.le\.|\.lt\.|\.ne\.|\.neqv\.|\.or\.|\.not\.) KIND {ARGS} 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}|TYPE{ARGS}) @@ -979,6 +980,9 @@ IGNORE (CALL) <*>. { g_code->codify(yytext); } +<*>{LOG_OPER} { // Fortran logical comparison keywords + g_code->codify(yytext); + } %% /*@ ---------------------------------------------------------------------------- |