From 413e2f0fa624292c542d7d5beb48f2f428eb7479 Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Tue, 14 Jun 2011 20:10:06 +0000
Subject: [PATCH] 2011-06-14 22:09 UTC+0200 Viktor Szakats (harbour.01
 syenar.hu)   * tests/ac_test.prg     ! warnings

---
 harbour/ChangeLog         | 4 ++++
 harbour/tests/ac_test.prg | 4 +++-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index dd8c73c8b9..f5936149cd 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,10 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2011-06-14 22:09 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  * tests/ac_test.prg
+    ! warnings
+
 2011-06-14 11:50 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * src/rtl/strtran.c
     ! minor in webpage URL
diff --git a/harbour/tests/ac_test.prg b/harbour/tests/ac_test.prg
index 6cb848e3af..8bbe998c67 100644
--- a/harbour/tests/ac_test.prg
+++ b/harbour/tests/ac_test.prg
@@ -150,7 +150,7 @@ local aPrompts := {;
    "Blooming-Fields Nursery"       }
 
 local aPermits := {}
-local x        := 1
+local x
 local nChoice
 local ncntr
 
@@ -204,6 +204,8 @@ local nKey    := lastkey()
 local nRow := Row()
 local nCol := Col()
 
+HB_SYMBOL_UNUSED( nRowPos )
+
 @ 0, 20 SAY Str( nRow, 3 ) + " " + Str( nCol, 3 )
 
 do case