test(*): COMPUTE文中の文字列チェックテストを追加

テストコードを追加した

Author: n-isaka

tests/run.src/misc.at

@@ -2047,4 +2047,28 @@ AT_CHECK([./prog], [1], [],
 [prog.cob:9: libcob: Numeric value is expected
 ])
 
-AT_CLEANUP
+AT_CLEANUP
+
+
+AT_SETUP([COMPUTE include string])
+
+AT_DATA([prog.cob], [
+       IDENTIFICATION   DIVISION.
+       PROGRAM-ID.      prog.
+       DATA             DIVISION.
+       WORKING-STORAGE  SECTION.
+       01 X.
+          03 X-ABC      PIC 999.
+       01 Y             PIC 999 VALUE 100.
+       PROCEDURE        DIVISION.
+           MOVE "abc" TO X.
+           COMPUTE Y = X-ABC + Y.
+           STOP RUN.
+])
+
+AT_CHECK([${COMPILE_JP_COMPAT_DEFAULT} prog.cob], [0])
+AT_CHECK([./prog], [1], [],
+[libcob: 'X-ABC' not numeric: 'abc'
+])
+
+AT_CLEANUP