diff options
author | Dimitri van Heesch <dimitri@stack.nl> | 2014-09-07 08:45:30 (GMT) |
---|---|---|
committer | Dimitri van Heesch <dimitri@stack.nl> | 2014-09-07 08:45:30 (GMT) |
commit | 8c8120bc3efa6ffa74f5e8cfce9cd6e4cae3de3a (patch) | |
tree | 48718e7d036825410812cef56c438e584fd67ce1 /src | |
parent | 0564881341aaae0ed74fae5d9a08d1c7d64211ba (diff) | |
download | Doxygen-8c8120bc3efa6ffa74f5e8cfce9cd6e4cae3de3a.zip Doxygen-8c8120bc3efa6ffa74f5e8cfce9cd6e4cae3de3a.tar.gz Doxygen-8c8120bc3efa6ffa74f5e8cfce9cd6e4cae3de3a.tar.bz2 |
Revert "Bug 634763 - Fortran: external subroutine as dummy argument not recognized"
Diffstat (limited to 'src')
-rw-r--r-- | src/fortranscanner.l | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/fortranscanner.l b/src/fortranscanner.l index 034bd5c..765f887 100644 --- a/src/fortranscanner.l +++ b/src/fortranscanner.l @@ -255,7 +255,7 @@ 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})|EXTERNAL|DOUBLE{BS}COMPLEX|DOUBLE{BS}PRECISION|{CHAR}|TYPE{ARGS}|CLASS{ARGS}|PROCEDURE{ARGS}?) +TYPE_SPEC (({NUM_TYPE}({BS}"*"{BS}[0-9]+)?)|({NUM_TYPE}{KIND})|DOUBLE{BS}COMPLEX|DOUBLE{BS}PRECISION|{CHAR}|TYPE{ARGS}|CLASS{ARGS}|PROCEDURE{ARGS}?) INTENT_SPEC intent{BS}"("{BS}(in|out|in{BS}out){BS}")" ATTR_SPEC (ALLOCATABLE|DIMENSION{ARGS}|EXTERNAL|{INTENT_SPEC}|INTRINSIC|OPTIONAL|PARAMETER|POINTER|PROTECTED|PRIVATE|PUBLIC|SAVE|TARGET|NOPASS|PASS{ARGS}?|DEFERRED|NON_OVERRIDABLE) |