From 5b2c6dea2edb57da78857d70ec527ab47346a226 Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Sat, 25 Sep 1999 06:05:50 +0000
Subject: [PATCH] 19990925-07:52 GMT+1

---
 harbour/ChangeLog                  | 4 ++++
 harbour/tests/working/testwarn.prg | 6 ++++++
 2 files changed, 10 insertions(+)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index d2db94676e..c9e8315626 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+19990925-07:52 GMT+1 Victor Szel <info@szelvesz.hu>
+  * tests/working/testwarn.prg
+    ! Added a MAIN() function.
+
 19990925-00:42 EDT Paul Tucker <ptucker@sympatico.ca>
   * tests/working/adirtest.prg
     * slight modification to the first call to Adir() to account for
diff --git a/harbour/tests/working/testwarn.prg b/harbour/tests/working/testwarn.prg
index a8ea1468dc..87d58fcc7b 100644
--- a/harbour/tests/working/testwarn.prg
+++ b/harbour/tests/working/testwarn.prg
@@ -4,6 +4,12 @@
 
 DECLARE FUNCTION nMyFunc( ) AS NUMERIC
 
+FUNCTION Main()
+
+   ? "This is a compiler test."
+
+   RETURN NIL
+
 FUNCTION Hex2Dec( lVar AS LOGICAL )
 
    LOCAL nVar AS NUMERIC, cVar AS CHARACTER, lVar2 AS LOGICAL, nNoType := 3