Included missing Fortran patches

INSTALL

-DOXYGEN Version 1.8.1.2-20120729
+DOXYGEN Version 1.8.1.2-20120730
 
 Please read the installation section of the manual 
 (http://www.doxygen.org/install.html) for instructions.
 
 --------
-Dimitri van Heesch (29 July 2012)
+Dimitri van Heesch (30 July 2012)

README

-DOXYGEN Version 1.8.1.2_20120729
+DOXYGEN Version 1.8.1.2_20120730
 
 Please read INSTALL for compilation instructions.
 
@@ -26,4 +26,4 @@ forum.
 
 Enjoy,
 
-Dimitri van Heesch (dimitri@stack.nl) (29 July 2012)
+Dimitri van Heesch (dimitri@stack.nl) (30 July 2012)

configure

@@ -20,7 +20,7 @@ doxygen_version_minor=8
 doxygen_version_revision=1.2
 
 #NOTE: Setting version_mmn to "NO" will omit mmn info from the package.
-doxygen_version_mmn=20120729
+doxygen_version_mmn=20120730
 
 bin_dirs=`echo $PATH | sed -e "s/:/ /g"`
 

src/fortrancode.l

@@ -770,8 +770,11 @@ PREFIX    (RECURSIVE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,2}(RECURSIVE|PURE|ELEMENTA
 					  BEGIN(UseOnly);     
                                         }           
 <UseOnly>{BS},{BS}                      { codifyLines(yytext); }
+<UseOnly>{BS}&{BS}"\n"                  { codifyLines(yytext); }
 <UseOnly>{ID}                           {
- 					  codifyLines(yytext);
+                                          g_insideBody=TRUE;
+                                          generateLink(*g_code, yytext);
+                                          g_insideBody=FALSE;
                                           useEntry->onlyNames.append(yytext);
                                         }
 <Use,UseOnly>"\n"                       {
@@ -1015,6 +1018,13 @@ PREFIX    (RECURSIVE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,2}(RECURSIVE|PURE|ELEMENTA
 <*>"\\\\"                               { str+=yytext; /* ignore \\  */}
 <*>"\\\""|\\\'                          { str+=yytext; /* ignore \"  */}
 
+<String>\n                              { // string with \n inside
+                                          str+=yytext;
+  					  startFontClass("stringliteral");
+  					  codifyLines(str);
+					  endFontClass();
+                                          str = "";
+                                        }           
 <String>\"|\'                           { // string ends with next quote without previous backspace 
                                           if(yytext[0]!=stringStartSymbol) REJECT; // single vs double quote
                                           str+=yytext;

src/fortranscanner.l

@@ -1638,84 +1638,84 @@ static QCString applyModifiers(QCString typeName, SymbolModifiers& mdfs)
 {
   if (!mdfs.dimension.isNull()) 
   {
-    typeName += ", ";
+    if (!typeName.isEmpty()) typeName += ", ";
     typeName += mdfs.dimension;
   }
   if (mdfs.direction!=SymbolModifiers::NONE_D) 
   {
-    typeName += ", ";
+    if (!typeName.isEmpty()) typeName += ", ";
     typeName += directionStrs[mdfs.direction];
   }
   if (mdfs.optional) 
   {
-    typeName += ", ";
+    if (!typeName.isEmpty()) typeName += ", ";
     typeName += "optional";
   }
   if (mdfs.allocatable) 
   {
-    typeName += ", ";
+    if (!typeName.isEmpty()) typeName += ", ";
     typeName += "allocatable";
   }
   if (mdfs.external) 
   {
-    typeName += ", ";
+    if (!typeName.isEmpty()) typeName += ", ";
     typeName += "external";
   }
   if (mdfs.intrinsic) 
   {
-    typeName += ", ";
+    if (!typeName.isEmpty()) typeName += ", ";
     typeName += "intrinsic";
   }
   if (mdfs.parameter) 
   {
-    typeName += ", ";
+    if (!typeName.isEmpty()) typeName += ", ";
     typeName += "parameter";
   }
   if (mdfs.pointer) 
   {
-    typeName += ", ";
+    if (!typeName.isEmpty()) typeName += ", ";
     typeName += "pointer";
   }
   if (mdfs.target) 
   {
-    typeName += ", ";
+    if (!typeName.isEmpty()) typeName += ", ";
     typeName += "target";
   }
   if (mdfs.save) 
   {
-    typeName += ", ";
+    if (!typeName.isEmpty()) typeName += ", ";
     typeName += "save";
   }
   if (mdfs.deferred) 
   {
-    typeName += ", ";
+    if (!typeName.isEmpty()) typeName += ", ";
     typeName += "deferred";
   }
   if (mdfs.nonoverridable) 
   {
-    typeName += ", ";
+    if (!typeName.isEmpty()) typeName += ", ";
     typeName += "non_overridable";
   }
   if (mdfs.nopass) 
   {
-    typeName += ", ";
+    if (!typeName.isEmpty()) typeName += ", ";
     typeName += "nopass";
   }
   if (mdfs.pass) 
   {
-    typeName += ", ";
+    if (!typeName.isEmpty()) typeName += ", ";
     typeName += "pass";
     if (!mdfs.passVar.isEmpty())
       typeName += "(" + mdfs.passVar + ")";
   }
   if (mdfs.protection == SymbolModifiers::PUBLIC)
   {
-    typeName += ", ";
+    if (!typeName.isEmpty()) typeName += ", ";
     typeName += "public";
   }
   else if (mdfs.protection == SymbolModifiers::PRIVATE)
   {
-    typeName += ", ";
+    if (!typeName.isEmpty()) typeName += ", ";
     typeName += "private";
   }