--- src/.svn/text-base/fortranscanner.l.svn-base	2011-06-30 22:02:54.372800000 +0200
+++ src/fortranscanner.l	2011-07-23 20:30:20.880801600 +0200
@@ -430,12 +437,14 @@
 
  /* INTERFACE definitions */
 <Start,ModuleBody,SubprogBody>{
+^{BS}interface{IDSYM}+                  {
+                                            // Has to be variable name
+                                        }
 ^{BS}interface                          { ifType = IF_SPECIFIC;
                                           yy_push_state(InterfaceBody);
                                           // do not start a scope here, every
                                           // interface body is a scope of its own
                                         }
-
 ^{BS}abstract{BS_}interface             { ifType = IF_ABSTRACT;
                                           yy_push_state(InterfaceBody);
                                           // do not start a scope here, every
