From 7ace28eb7bb5f42c3571e5b7be1ab954f4509e17 Mon Sep 17 00:00:00 2001
From: Chris Hansen <hansec@uw.edu>
Date: Fri, 28 Nov 2014 13:34:39 -0500
Subject: Fix rules for closing FORTRAN module and typedef scopes

---
 src/fortrancode.l | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/fortrancode.l b/src/fortrancode.l
index ea7cef3..fabd947 100644
--- a/src/fortrancode.l
+++ b/src/fortrancode.l
@@ -893,11 +893,11 @@ PREFIX    (RECURSIVE{BS_}|IMPURE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,3}(RECURSIVE|I
                                           yy_pop_state();
 					  YY_FTN_REJECT;
 					}
-<Start>"end"({BS_}"type").*          { // just reset currentClass, rest is done in following rule
+<Start>^{BS}"end"({BS_}"type").*        { // just reset currentClass, rest is done in following rule
                                           currentClass=0;
             YY_FTN_REJECT;
                                         }
-<Start>"end"({BS_}"module").*          { // just reset currentModule, rest is done in following rule
+<Start>^{BS}"end"({BS_}"module").*      { // just reset currentModule, rest is done in following rule
                                           currentModule=0;
 					  YY_FTN_REJECT;
                                         }
-- 
cgit v0.12