Commit b7c3088d authored by albert-github's avatar albert-github

Bug 706804 - Fortran: Doxygen mixes up function-attributes with the return type

test string should not be equal to "function" but should contain "function"
parent d094c8ff
...@@ -1998,7 +1998,7 @@ static void addSubprogram(const char *text) ...@@ -1998,7 +1998,7 @@ static void addSubprogram(const char *text)
subrCurrent.prepend(current); subrCurrent.prepend(current);
current->section = Entry::FUNCTION_SEC ; current->section = Entry::FUNCTION_SEC ;
QCString subtype = text; subtype=subtype.lower().stripWhiteSpace(); QCString subtype = text; subtype=subtype.lower().stripWhiteSpace();
functionLine = subtype=="function"; functionLine = (subtype.find("function") != -1);
current->type += " " + subtype; current->type += " " + subtype;
current->type = current->type.stripWhiteSpace(); current->type = current->type.stripWhiteSpace();
current->fileName = yyFileName; current->fileName = yyFileName;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment