--- src\.svn\text-base\docparser.cpp.svn-base	2011-06-30 22:02:53.122800000 +0200
+++ src\docparser.cpp	2011-07-15 20:19:08.231400000 +0200
@@ -349,7 +349,18 @@
       argName=argName.stripWhiteSpace();
       //printf("argName=`%s'\n",argName.data());
       if (argName.right(3)=="...") argName=argName.left(argName.length()-3);
-      if (aName==argName) 
+      if (getLanguageFromFileName(g_memberDef->getDefFileName())==SrcLangExt_F90)
+      {
+        // Fortran is case insensetive
+        if (aName.lower() == argName.lower())
+        {
+	  //printf("adding `%s'\n",aName.data());
+	  g_paramsFound.insert(aName.lower(),(void *)(0x8));
+	  found=TRUE;
+	  break;
+        }
+      }
+      else if (aName==argName)
       {
 	//printf("adding `%s'\n",aName.data());
 	g_paramsFound.insert(aName,(void *)(0x8));
@@ -412,6 +423,15 @@
         { 
           // allow undocumented self parameter for Python
         }
+        else if (getLanguageFromFileName(g_memberDef->getDefFileName())==SrcLangExt_F90)
+        { 
+          // Fortran is case insensetive
+          if (!argName.isEmpty() && g_paramsFound.find(argName.lower())==0 && a->docs.isEmpty())
+          {
+            found = TRUE;
+            break;
+          }
+        }
         else if (!argName.isEmpty() && g_paramsFound.find(argName)==0 && a->docs.isEmpty()) 
         {
           found = TRUE;
@@ -434,7 +454,23 @@
           { 
             // allow undocumented self parameter for Python
           }
-          else if (!argName.isEmpty() && g_paramsFound.find(argName)==0) 
+          else if (getLanguageFromFileName(g_memberDef->getDefFileName())==SrcLangExt_F90)
+          { 
+            // Fortran is case insensetive
+            if (!argName.isEmpty() && g_paramsFound.find(argName.lower())==0 && a->docs.isEmpty())
+            {
+              if (!first)
+              {
+                errMsg+="\n";
+              }
+              else
+              {
+                first=FALSE;
+              }
+              errMsg+="  parameter '"+argName+"'";
+            }
+          }
+          else if (!argName.isEmpty() && g_paramsFound.find(argName)==0 && a->docs.isEmpty()) 
           {
             if (!first)
             {
