diff options
author | Dimitri van Heesch <dimitri@stack.nl> | 2010-11-06 19:00:58 (GMT) |
---|---|---|
committer | Dimitri van Heesch <dimitri@stack.nl> | 2010-11-06 19:00:58 (GMT) |
commit | be602ee76006d9b8b0f6e5e75114f2ce34f7773e (patch) | |
tree | 0a8fa55f942d3a0e2f845bc77e6a357b9fb1c1c7 /src/fortrancode.l | |
parent | 8a48f6c3f4827171edf41a40bfdbc03e53d9be6b (diff) | |
download | Doxygen-be602ee76006d9b8b0f6e5e75114f2ce34f7773e.zip Doxygen-be602ee76006d9b8b0f6e5e75114f2ce34f7773e.tar.gz Doxygen-be602ee76006d9b8b0f6e5e75114f2ce34f7773e.tar.bz2 |
Release-1.7.2-20101106
Diffstat (limited to 'src/fortrancode.l')
-rw-r--r-- | src/fortrancode.l | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/fortrancode.l b/src/fortrancode.l index d8f592c..2923ad6 100644 --- a/src/fortrancode.l +++ b/src/fortrancode.l @@ -645,12 +645,16 @@ B [ \t] BS [ \t]* BS_ [ \t]+ COMMA {BS},{BS} -ARGS {BS}("("[^)]*")"){BS} +ARGS_L0 ("("[^)]*")") +ARGS_L1a [^()]*"("[^)]*")"[^)]* +ARGS_L1 ("("{ARGS_L1a}*")") +ARGS_L2 "("({ARGS_L0}|[^()]|{ARGS_L1a}|{ARGS_L1})*")" +ARGS {BS}({ARGS_L0}|{ARGS_L1}|{ARGS_L2}) NUM_TYPE (complex|integer|logical|real) KIND {ARGS} CHAR (CHARACTER{ARGS}?|CHARACTER{BS}"*"({BS}[0-9]+|{ARGS})) -TYPE_SPEC (({NUM_TYPE}({BS}"*"{BS}[0-9]+)?)|({NUM_TYPE}{KIND})|DOUBLE{B}PRECISION|{CHAR}) +TYPE_SPEC (({NUM_TYPE}({BS}"*"{BS}[0-9]+)?)|({NUM_TYPE}{KIND})|DOUBLE{BS_}PRECISION|{CHAR}|TYPE{ARGS}) INTENT_SPEC intent{BS}"("{BS}(in|out|in{BS}out){BS}")" ATTR_SPEC (ALLOCATABLE|DIMENSION{ARGS}|EXTERNAL|{INTENT_SPEC}|INTRINSIC|OPTIONAL|PARAMETER|POINTER|PRIVATE|PUBLIC|SAVE|TARGET|RECURSIVE|PURE|ELEMENTAL) |