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.

---
 lexers/LexFortran.cxx | 1 +
 1 file changed, 1 insertion(+)

(limited to 'lexers')

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