Fix numericCompareTo() (#516)

Author: kio-watanabe

libcobj/app/src/main/java/jp/osscons/opensourcecobol/libcobj/data/CobolNumericField.java

@@ -911,7 +911,7 @@ public int numericCompareTo(AbstractCobolField field) {
         final int i1 = firstIndex1 + i + pointIndex1;
         final int i2 = firstIndex2 + i + pointIndex2;
         byte b1;
-        if (i1 < 0 || i1 > lastIndex1) {
+        if (i1 < firstIndex1 || i1 > lastIndex1) {
           b1 = (byte) '0';
         } else {
           b1 = d1.getByte(i1);
@@ -920,7 +920,7 @@ public int numericCompareTo(AbstractCobolField field) {
           }
         }
         byte b2;
-        if (i2 < 0 || i2 > lastIndex2) {
+        if (i2 < firstIndex2 || i2 > lastIndex2) {
           b2 = (byte) '0';
         } else {
           b2 = d2.getByte(i2);

tests/misc.src/compare-9.at

@@ -57,3 +57,34 @@ AT_CHECK([${COBJ} prog.cbl])
 AT_CHECK([java prog])
 
 AT_CLEANUP
+
+AT_SETUP([compare 9(n), S9(n) SEPARATE])
+
+AT_DATA([prog.cbl], [
+	   IDENTIFICATION   DIVISION.
+       PROGRAM-ID.      prog.
+       DATA             DIVISION.
+       WORKING-STORAGE SECTION.
+       01  N10 PIC 9(10).
+       01  S9-L PIC S9(9) SIGN LEADING SEPARATE.
+       01  S9-T PIC S9(9) SIGN TRAILING SEPARATE.
+       PROCEDURE        DIVISION.
+       MAIN-PROC.
+      *************************************************************
+          MOVE 800 TO N10.
+          MOVE 900 TO S9-L.
+          MOVE 900 TO S9-T.
+
+          IF N10 >= S9-L
+              DISPLAY "NG (N10 >= S9-L)"
+          END-IF.
+
+          IF N10 >= S9-T
+              DISPLAY "NG (N10 >= S9-T)"
+          END-IF.
+])
+
+AT_CHECK([${COBJ} prog.cbl])
+AT_CHECK([java prog])
+
+AT_CLEANUP