Index: doxygen-1.8.18/src/fortranscanner.l
===================================================================
--- doxygen-1.8.18.orig/src/fortranscanner.l	2020-07-10 09:10:24.205905062 +0200
+++ doxygen-1.8.18/src/fortranscanner.l	2020-07-10 09:13:31.570972499 +0200
@@ -2357,7 +2357,6 @@ static void initEntry(yyscan_t yyscanner
 static void addCurrentEntry(yyscan_t yyscanner,bool case_insens)
 {
   struct yyguts_t *yyg = (struct yyguts_t*)yyscanner;
-  if (case_insens) yyextra->current->name = yyextra->current->name.lower();
   //printf("===Adding entry %s to %s\n", yyextra->current->name.data(), yyextra->current_root->name.data());
   yyextra->last_entry = yyextra->current;
   yyextra->current_root->moveToSubEntryAndRefresh(yyextra->current);