Improve a test to execute untested code in write_json_info in cobj/codegen.c (#667)

Author: yutaro-sakamoto

tests/command-line-options.src/info-java-dir.at

@@ -10,7 +10,8 @@ AT_DATA([callee.cbl], [
        LINKAGE          SECTION.
        01 P1            PIC X ANY LENGTH.
        01 P2            PIC 99.
-       PROCEDURE        DIVISION USING P1 P2.
+       01 P3            PIC 9V9.
+       PROCEDURE        DIVISION USING P1 P2 P3.
            GOBACK.
 ])
 
@@ -38,6 +39,10 @@ AT_CHECK([cat info_callee.json], [0],
     {
       "variable_name": "P2",
       "java_type": "int"
+    },
+    {
+      "variable_name": "P3",
+      "java_type": "double"
     }
   @:>@
 }
@@ -74,6 +79,10 @@ AT_CHECK([cat bbb/info_callee.json], [0],
     {
       "variable_name": "P2",
       "java_type": "int"
+    },
+    {
+      "variable_name": "P3",
+      "java_type": "double"
     }
   @:>@
 }