fbc: improve error message on statement between SELECT and first CASE inside a subroutine

Author: jayrm

changelog.txt

@@ -36,6 +36,7 @@ Version 1.09.0
 - rtlib: define fb_AtomicSetThreadFlags() even in the non-multithreaded version of run time library - it is needed by thread_core.c:threadproc() - unusual but not impossible to link the non-multithreaded rtlib and call thread functions
 - darwin: a variety of improvements to allow compiling and linking (TeeEmCee)
 - gfxlib2: fix d2d scaling issues for high dpi (adeyblue)
+- fbc: improve error message on statement between SELECT and first CASE inside a subroutine
 
 
 Version 1.08.0

src/compiler/parser-compound.bas

@@ -731,7 +731,11 @@ function cCompStmtIsAllowed( byval allowmask as FB_CMPSTMT_MASK ) as integer
 
 	'' error..
 	if( fbIsModLevel( ) = FALSE ) then
-		errmsg = FB_ERRMSG_ILLEGALINSIDEASUB
+		if( stk->id = FB_TK_SELECT ) then
+			errmsg = FB_ERRMSG_ILLEGALINSIDESELECT
+		else
+			errmsg = FB_ERRMSG_ILLEGALINSIDEASUB
+		end if
 	else
 		if( symbIsGlobalNamespc( ) ) then
 			if( stk->id = FB_TK_SELECT ) then