--- ../doxygen-767/src/fortranscanner.l	2011-06-07 18:36:46.914012400 +0200
+++ src/fortranscanner.l	2011-06-08 21:25:18.062228600 +0200
@@ -862,6 +862,7 @@
 
 <Start,ModuleBody,SubprogBody,InterfaceBody,ModuleBodyContains,SubprogBodyContains>^{BS}({PREFIX}{BS_})?{SUBPROG}{BS_} {
                                          // Fortran subroutine or function found
+                                         v_type = V_IGNORE;
                                          if (ifType == IF_ABSTRACT || ifType == IF_SPECIFIC)
                                          {
                                            addInterface("$interface$", ifType);
