summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDimitri van Heesch <dimitri@stack.nl>2014-09-07 08:39:51 (GMT)
committerDimitri van Heesch <dimitri@stack.nl>2014-09-07 08:39:51 (GMT)
commit0564881341aaae0ed74fae5d9a08d1c7d64211ba (patch)
tree926918936776ae1e51283e3e759f7d9c0ce71779
parent8d7ac44fadaad1efb5b3f82aca7b56efde28a041 (diff)
parentfabd1194a2e3c2536dddc19945c568a690b17031 (diff)
downloadDoxygen-0564881341aaae0ed74fae5d9a08d1c7d64211ba.zip
Doxygen-0564881341aaae0ed74fae5d9a08d1c7d64211ba.tar.gz
Doxygen-0564881341aaae0ed74fae5d9a08d1c7d64211ba.tar.bz2
Merge pull request #221 from albert-github/feature/bug_634763
Bug 634763 - Fortran: external subroutine as dummy argument not recognized
-rw-r--r--src/fortranscanner.l2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/fortranscanner.l b/src/fortranscanner.l
index 765f887..034bd5c 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})|DOUBLE{BS}COMPLEX|DOUBLE{BS}PRECISION|{CHAR}|TYPE{ARGS}|CLASS{ARGS}|PROCEDURE{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}?)
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)