summaryrefslogtreecommitdiffstats
path: root/src/fortranscanner.l
diff options
context:
space:
mode:
authoralbert-github <albert.tests@gmail.com>2013-08-26 17:18:29 (GMT)
committeralbert-github <albert.tests@gmail.com>2013-08-26 17:18:29 (GMT)
commitb7c3088d382ba6e0f14c4fa9a7ce83f2253499b5 (patch)
treee14b3dd0fb11cded9e9f2180498ddaf809d1c948 /src/fortranscanner.l
parentd094c8ffa9b781c32be9ba1bce9890c32dcb6540 (diff)
downloadDoxygen-b7c3088d382ba6e0f14c4fa9a7ce83f2253499b5.zip
Doxygen-b7c3088d382ba6e0f14c4fa9a7ce83f2253499b5.tar.gz
Doxygen-b7c3088d382ba6e0f14c4fa9a7ce83f2253499b5.tar.bz2
Bug 706804 - Fortran: Doxygen mixes up function-attributes with the return type
test string should not be equal to "function" but should contain "function"
Diffstat (limited to 'src/fortranscanner.l')
-rw-r--r--src/fortranscanner.l2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/fortranscanner.l b/src/fortranscanner.l
index 3ed0031..327febf 100644
--- a/src/fortranscanner.l
+++ b/src/fortranscanner.l
@@ -1998,7 +1998,7 @@ static void addSubprogram(const char *text)
subrCurrent.prepend(current);
current->section = Entry::FUNCTION_SEC ;
QCString subtype = text; subtype=subtype.lower().stripWhiteSpace();
- functionLine = subtype=="function";
+ functionLine = (subtype.find("function") != -1);
current->type += " " + subtype;
current->type = current->type.stripWhiteSpace();
current->fileName = yyFileName;