2013-03-15 04:18 UTC+0100 Viktor Szakats (harbour syenar.net)

+ tests/fwdref.prg
    + added TOFIX and demonstration for this bug by Kevin Carmody:
        https://sourceforge.net/tracker/?func=detail&aid=1635310&group_id=681&atid=100681

  + tests/sortbug.prg
    + added TOFIX and demonstration for this bug:
        https://sourceforge.net/tracker/?func=detail&aid=2096950&group_id=681&atid=100681

harbour/ChangeLog.txt

@@ -10,6 +10,15 @@
      * Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment
  */
 
+2013-03-15 04:18 UTC+0100 Viktor Szakats (harbour syenar.net)
+  + tests/fwdref.prg
+    + added TOFIX and demonstration for this bug by Kevin Carmody:
+        https://sourceforge.net/tracker/?func=detail&aid=1635310&group_id=681&atid=100681
+
+  + tests/sortbug.prg
+    + added TOFIX and demonstration for this bug:
+        https://sourceforge.net/tracker/?func=detail&aid=2096950&group_id=681&atid=100681
+
 2013-03-15 03:24 UTC+0100 Viktor Szakats (harbour syenar.net)
   * README.txt
     + updated with new git links

harbour/tests/fwdref.prg

@@ -0,0 +1,9 @@
+
+/* TOFIX: Compiles fine with Clipper, fails with Harbour */
+
+PROCEDURE Main()
+
+   LOCAL bPad := {| nNum | nNum + nSpan }
+   LOCAL nSpan := 1
+
+   RETURN

harbour/tests/sortbug.prg

@@ -0,0 +1,24 @@
+
+PROCEDURE Main()
+
+   dbCreate( "testsort", { { "ITEM", "N", 10, 2 } } )
+
+   USE testsort
+   dbAppend() ; FIELD->ITEM := 5.00
+   dbAppend() ; FIELD->ITEM := -5.12
+   dbAppend() ; FIELD->ITEM := 6.00
+   dbAppend() ; FIELD->ITEM := 7.00
+   dbAppend() ; FIELD->ITEM := -5.00
+
+   SORT TO tempsort ON FIELD->ITEM /D
+
+   USE tempsort
+   dbEval( {|| QOut( FIELD->ITEM ) } )
+
+   /* TOFIX: To work like in Cl*pper: 7.00, 6.00, 5.00, -5.00, -5.12 */
+
+   dbCloseArea()
+   hb_dbDrop( "testsort" )
+   hb_dbDrop( "tempsort" )
+
+   RETURN