--- ./src/.svn/text-base/fortranscanner.l.svn-base	2011-06-30 22:02:54.372800000 +0200
+++ src/fortranscanner.l	2011-07-04 20:38:34.049004500 +0200
@@ -496,6 +496,7 @@
 
  /*------ module handling ------------------------------------------------------------*/ 
 <Start>module|program{BS_}             {  //
+                                         v_type = V_IGNORE;
 					    if(yytext[0]=='m' || yytext[0]=='M')
 					      yy_push_state(Module);
 					    else
@@ -903,6 +904,7 @@
 
 <SubprogPrefix>{BS}{SUBPROG}{BS_}     {
                                          // Fortran subroutine or function found
+                                         v_type = V_IGNORE;
                                          result=yytext;
                                          result=result.stripWhiteSpace();
                                          addSubprogram(result);

