From e436cad917e0d8e0cdb7de9d2fbafc7a44b6ab54 Mon Sep 17 00:00:00 2001
From: Dimitri van Heesch <dimitri@stack.nl>
Date: Sun, 25 May 2008 18:35:56 +0000
Subject: Fortran: interface keyword must be followed by a newline, comment or
 whitespace (bug 521860).

---
 src/fortranscanner.l | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/fortranscanner.l b/src/fortranscanner.l
index 89d5473..3fa9bd1 100644
--- a/src/fortranscanner.l
+++ b/src/fortranscanner.l
@@ -384,7 +384,7 @@ PREFIX    (RECURSIVE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,2}(RECURSIVE|PURE|ELEMENTA
                                         }
 
  /*------ ignore special fortran statements */
-<Start,ModuleBody,SubprogBody>^[ \t]*interface({BS_}{ID}({BS}\({BS}[^ \t()]+{BS}\))?)? { // handle interface block
+<Start,ModuleBody,SubprogBody>^[ \t]*interface({BS_}{ID}({BS}\({BS}[^ \t()]+{BS}\))?)?/{BS}(!|\n) { // handle interface block
                                           if(YY_START == Start)
                                           {
                                             addModule(NULL); 
-- 
cgit v0.12