From b1829a9808494dba5a360fb2de89a2a216336df3 Mon Sep 17 00:00:00 2001
From: Ron Pinkas <ron@profit-master.com>
Date: Mon, 21 Jun 1999 09:02:31 +0000
Subject: [PATCH] Ron Pinkas Updated TestWarn.prg

---
 harbour/tests/working/testwarn.prg | 34 +++++++++++++++++++++---------
 1 file changed, 24 insertions(+), 10 deletions(-)

diff --git a/harbour/tests/working/testwarn.prg b/harbour/tests/working/testwarn.prg
index bb92ad8158..2aae651caf 100644
--- a/harbour/tests/working/testwarn.prg
+++ b/harbour/tests/working/testwarn.prg
@@ -1,25 +1,39 @@
-FUNCTION Hex2Dec( nVar1 AS LOGICAL )
+DECLARE FUNCTION nMyFunc( ) AS NUMERIC
 
-	LOCAL nVar AS NUMERIC, nVar2 AS CHARACTER, nVar3 AS LOGICAL, nNoType := 3
+FUNCTION Hex2Dec( lVar AS LOGICAL )
 
-	nVar1 := .T.
+   LOCAL nVar AS NUMERIC, cVar AS CHARACTER, lVar2 AS LOGICAL, nNoType := 3
 
-	nVar1 := 1
+   nVar := .T.
+
+   nVar := 1
 
 	nVar := 'A'
 
-	nVar := 2
+   cVar := 2
 
-	nVar2 := 'B'
+   cVar := 'B'
 
-	nVar2 := 2
+   cVar := 2
 
-	nVar3 := .T.
+   lVar := .T.
 
-	nVar3 := nNoType
+   lVar := nNoType
 
-	nVar3 := nVar
+   cVar := nVar
 
 	NondDeclared := 2
 
+   cVar := {|x,y,z| nMyFunc( 3 ) }
+
+	nVar := 8 + cVar
+
+	IF 1
+
+   ENDIF
+
 RETURN NIL
+
+Function nMyFunc( nParam )
+
+return nParam * 2