Ok ! Going great

harbour/ChangeLog

@@ -1,3 +1,12 @@
+19900509-18:10 Eddie Runia
+   * tests/working/calling
+     Function Second changed to SecondOne()
+   * tests/working/initexit
+   * tests/working/statfun
+     See above
+   * tests/working/testtok
+     i was required in next (??)
+
 19990509-18:00 CET Victor Szel <info@szelvesz.hu>
 
    * source/rtl/strings.c:

harbour/tests/working/calling.prg

@@ -2,7 +2,7 @@
 
 function Main()
 
-   Second()
+   SecondOne()
 
    DO Fourth WITH "from Fourth() function"    // Testing the old fashion DO ...
 
@@ -10,7 +10,7 @@ function Main()
 
 return nil
 
-function Second()
+function SecondOne()
 
    QOut( "Ok, this is from Second() function call" )
 

harbour/tests/working/initexit.prg

@@ -6,7 +6,7 @@ function Main()
 
 return nil
 
-init function Second()
+init function SecondOne()
 
    QOut( "Hello from Second()" )
 

harbour/tests/working/statfun.prg

@@ -4,13 +4,13 @@ function Main()
 
    QOut( "From Main()" )
 
-   Second()
+   SecondOne()
 
    QOut( "From Main() again" )
 
 return nil
 
-static function Second()
+static function SecondOne()
 
    QOut( "From Second()" )
 

harbour/tests/working/testtok.prg

@@ -4,7 +4,7 @@ procedure main()
 
    for i := 1 to len(a)
       qout( a[i] )
-   next
+   next i			/* TOFIX : i is required ?? */
 return
 
 function strtoarray(s)