summaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/fortranscanner.l7
1 files changed, 3 insertions, 4 deletions
diff --git a/src/fortranscanner.l b/src/fortranscanner.l
index 4983738..f34ff69 100644
--- a/src/fortranscanner.l
+++ b/src/fortranscanner.l
@@ -910,15 +910,14 @@ private {
/*---- documentation comments --------------------------------------------------------------------*/
-<Variable>"!<" { /* backward docu comment (only one line) */
+<Variable,SubprogBody,ModuleBody,TypedefBody>"!<" { /* backward docu comment (only one line) */
if (v_type != V_IGNORE) {
- yy_push_state(YY_START);
current->docLine = yyLineNr;
docBlockJavaStyle = FALSE;
docBlock.resize(0);
docBlockJavaStyle = Config_getBool("JAVADOC_AUTOBRIEF");
startCommentBlock(TRUE);
- BEGIN(DocBackLine);
+ yy_push_state(DocBackLine);
}
}
<DocBackLine>.* { // contents of current comment line
@@ -932,7 +931,7 @@ private {
}
else if (v_type == V_PARAMETER)
{
- parameter->docs=docBlock;
+ parameter->docs+=docBlock;
}
yy_pop_state();
}