Index: doxygen-1.8.1/src/fortranscanner.l
===================================================================
--- doxygen-1.8.1.orig/src/fortranscanner.l
+++ doxygen-1.8.1/src/fortranscanner.l
@@ -1892,7 +1891,6 @@ static void initEntry()
 */
 static void addCurrentEntry(int case_insens)
 {
-  if (case_insens) current->name = current->name.lower();
   //printf("===Adding entry %s to %s\n", current->name.data(), current_root->name.data());
   current_root->addSubEntry(current);
   last_entry = current;