fix: some functions for mathematics

Author: yutaro-sakamoto

libcobj/src/jp/osscons/opensourcecobol/libcobj/data/CobolNumericDoubleField.java

@@ -149,15 +149,15 @@ public CobolNumericField getNumericField() {
     CobolFieldAttribute attr =
         new CobolFieldAttribute(
             CobolFieldAttribute.COB_TYPE_NUMERIC_DISPLAY,
-            24,
-            12,
+            40,
+            20,
             CobolFieldAttribute.COB_FLAG_HAVE_SIGN,
             null);
-    CobolDataStorage storage = new CobolDataStorage(24);
+    CobolDataStorage storage = new CobolDataStorage(40);
     double dval = Math.abs(this.getBinaryValue());
-    String dataString = String.format("%024.12f", dval).replace(".", "");
-    storage.memcpy(dataString, 24);
-    AbstractCobolField field = CobolFieldFactory.makeCobolField(24, storage, attr);
+    String dataString = String.format("%041.20f", dval).replace(".", "");
+    storage.memcpy(dataString, 40);
+    AbstractCobolField field = CobolFieldFactory.makeCobolField(40, storage, attr);
     if (this.getSign() >= 0) {
       field.putSign(1);
     } else {

tests/run.src/functions.at

@@ -507,7 +507,6 @@ AT_CHECK([java prog], [0],
 AT_CLEANUP
 
 AT_SETUP([FUNCTION EXP])
-AT_CHECK([${SKIP_TEST}])
 
 AT_DATA([prog.cob], [
        IDENTIFICATION   DIVISION.
@@ -758,7 +757,6 @@ AT_CHECK([java prog], [0],
 AT_CLEANUP
 
 AT_SETUP([FUNCTION LOG])
-AT_CHECK([${SKIP_TEST}])
 
 AT_DATA([prog.cob], [
        IDENTIFICATION   DIVISION.
@@ -788,7 +786,6 @@ AT_CHECK([java prog], [0],
 AT_CLEANUP
 
 AT_SETUP([FUNCTION LOG10])
-AT_CHECK([${SKIP_TEST}])
 
 AT_DATA([prog.cob], [
        IDENTIFICATION   DIVISION.
@@ -1355,7 +1352,6 @@ AT_CHECK([java prog], [0],
 AT_CLEANUP
 
 AT_SETUP([FUNCTION STANDARD-DEVIATION])
-AT_CHECK([${SKIP_TEST}])
 
 AT_DATA([prog.cob], [
        IDENTIFICATION   DIVISION.
@@ -1501,7 +1497,6 @@ AT_CHECK([java prog], [0],
 AT_CLEANUP
 
 AT_SETUP([FUNCTION TAN])
-AT_CHECK([${SKIP_TEST}])
 
 AT_DATA([prog.cob], [
        IDENTIFICATION   DIVISION.