Bug 706520 - Fortran: in body documentation lands on wrong place

In some cases, in propriety code, with in body Fortran documentation doxygen crashed.
I REOPENED Bug_706520 for this

src/fortranscanner.l

@@ -2109,7 +2109,7 @@ static void handleCommentBlock(const QCString &doc,bool brief)
   int lineNr = brief ? current->briefLine : current->docLine;
   while (parseCommentBlock(
 	g_thisParser,
-	docBlockInBody ? last_entry : current,
+	docBlockInBody ? subrCurrent.first() : current,
 	doc,        // text
 	yyFileName, // file
 	lineNr,