Skip to content

Commit c2b90cb

Browse files
fix: FUNCTION ABS
1 parent 549f681 commit c2b90cb

File tree

2 files changed

+1
-2
lines changed

2 files changed

+1
-2
lines changed

libcobj/src/jp/osscons/opensourcecobol/libcobj/common/CobolIntrinsic.java

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -733,7 +733,7 @@ public static AbstractCobolField funcExp10(AbstractCobolField srcfield) {
733733
/** libcob/intrinsicのcob_intr_absの実装 */
734734
public static AbstractCobolField funcAbs(AbstractCobolField srcfield) {
735735
makeFieldEntry(srcfield);
736-
CobolDecimal d1 = new CobolDecimal();
736+
CobolDecimal d1 = srcfield.getDecimal();
737737
d1.setValue(d1.getValue().abs());
738738
try {
739739
d1.getField(currField, 0);

tests/run.src/functions.at

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -20,7 +20,6 @@
2020
### ISO+IEC+1989-2002 15 Intrinsic Functions
2121

2222
AT_SETUP([FUNCTION ABS])
23-
AT_CHECK([${SKIP_TEST}])
2423

2524
AT_DATA([prog.cob], [
2625
IDENTIFICATION DIVISION.

0 commit comments

Comments
 (0)