From 2030240bc18d32581479306e6fd86211e6f30c73 Mon Sep 17 00:00:00 2001
From: Chris Hansen <hansec@uw.edu>
Date: Tue, 27 May 2014 10:27:09 -0400
Subject: [PATCH] Fix FORTRAN code function scope test

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

diff --git a/src/fortrancode.l b/src/fortrancode.l
index 699b3204496..e6cfddeb031 100644
--- a/src/fortrancode.l
+++ b/src/fortrancode.l
@@ -932,7 +932,7 @@ PREFIX    (RECURSIVE{BS_}|IMPURE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,3}(RECURSIVE|I
 					  endFontClass();
   					}
 <Declaration>{ID}                       { // local var
-                                          if (g_currentMemberDef && !g_currentMemberDef->isFunction() && bracketCount==0)
+                                          if (g_currentMemberDef && g_currentMemberDef->isFunction() && bracketCount==0)
                                           {
                                             g_code->codify(yytext);
                                             addLocalVar(yytext);