From 5f5ca4123c3a3ae3443e8f45c2b3d4df7309c708 Mon Sep 17 00:00:00 2001
From: Neil <nyamatongwe@gmail.com>
Date: Wed, 13 May 2015 10:17:54 +1000
Subject: Bug [#1724]. Fix folding of "selecttype" and "selectcase". From
 darmar.

---
 doc/ScintillaHistory.html | 4 ++++
 lexers/LexFortran.cxx     | 1 +
 2 files changed, 5 insertions(+)

diff --git a/doc/ScintillaHistory.html b/doc/ScintillaHistory.html
index 6ff3d6c46..700de78fd 100644
--- a/doc/ScintillaHistory.html
+++ b/doc/ScintillaHistory.html
@@ -502,6 +502,10 @@
 	<a href="http://sourceforge.net/p/scintilla/bugs/1719/">Bug #1719</a>.
 	</li>
 	<li>
+	Fortran folder fixes handling of "selecttype" and "selectcase".
+	<a href="http://sourceforge.net/p/scintilla/bugs/1724/">Bug #1724</a>.
+	</li>
+	<li>
 	Verilog folder folds interface definitions.
 	</li>
 	<li>
diff --git a/lexers/LexFortran.cxx b/lexers/LexFortran.cxx
index 5deaf1173..387ed84ed 100644
--- a/lexers/LexFortran.cxx
+++ b/lexers/LexFortran.cxx
@@ -260,6 +260,7 @@ static int classifyFoldPointFortran(const char* s, const char* prevWord, const c
 		lev = 0;
 	} else if (strcmp(s, "associate") == 0 || strcmp(s, "block") == 0
 	        || strcmp(s, "blockdata") == 0 || strcmp(s, "select") == 0
+	        || strcmp(s, "selecttype") == 0 || strcmp(s, "selectcase") == 0
 	        || strcmp(s, "do") == 0 || strcmp(s, "enum") ==0
 	        || strcmp(s, "function") == 0 || strcmp(s, "interface") == 0
 	        || strcmp(s, "module") == 0 || strcmp(s, "program") == 0
-- 
cgit v1.2.3