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