From 4af88367aca2b3eac283c52e42f5a34002dcfb9a Mon Sep 17 00:00:00 2001
From: Dimitri van Heesch <dimitri@stack.nl>
Date: Fri, 18 Mar 2011 12:28:16 +0000
Subject: Handle multiline back comment.

---
 src/fortranscanner.l | 7 +++----
 1 file 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();
  					 }
-- 
cgit v0.12