Index: src/fortranscanner.l
===================================================================
RCS file: /cygdrive/d/cvs_doxygen/doxygen/doxygen/src/fortranscanner.l,v
retrieving revision 1.11
diff -u -r1.11 fortranscanner.l
--- src/fortranscanner.l	4 Apr 2013 17:19:31 -0000	1.11
+++ src/fortranscanner.l	14 Apr 2013 17:59:14 -0000
@@ -2300,7 +2300,8 @@
 
 void FortranLanguageScanner::parsePrototype(const char *text)
 {
-  (void)text;
+  current->name = text;
+  current->name = current->name.lower();
 }
 
 static void scanner_abort() 
