From 0f047eb1862193713889d10bccb4894df1f7c23d Mon Sep 17 00:00:00 2001
From: albert-github <albert.tests@gmail.com>
Date: Thu, 18 Aug 2016 18:21:41 +0200
Subject: [PATCH] Color code word RESULT as keyword in FORTRAN code

---
 src/fortrancode.l | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/fortrancode.l b/src/fortrancode.l
index f14867cf0c4..4cd1b3a643d 100644
--- a/src/fortrancode.l
+++ b/src/fortrancode.l
@@ -925,7 +925,12 @@ PREFIX    (RECURSIVE{BS_}|IMPURE{BS_}|PURE{BS_}|ELEMENTAL{BS_}){0,3}(RECURSIVE|I
 					  startScope();
 					  generateLink(*g_code,yytext);
                                         }
-<Subprog>"(".*                          { // ignore rest of line 
+<Subprog>"result"/{BS}"("[^)]*")"       {
+   					  startFontClass("keyword");
+ 					  codifyLines(yytext);
+					  endFontClass();
+                                        }
+<Subprog>"("[^)]*")"                    { // ignore rest of line 
  					  codifyLines(yytext);
                                         }
 <Subprog,Subprogend>"\n"                { codifyLines(yytext);