Fix casting integers (#618)

Author: yutaro-sakamoto

cobj/codegen.c

@@ -1389,14 +1389,24 @@ static void joutput_integer(cb_tree x) {
       }
       if (f->size == 2 || f->size == 4 || f->size == 8) {
         if (f->flag_binary_swap) {
+          if (!integer_reference_flag) {
+            switch (f->size) {
+            case 2:
+              joutput("(short)(");
+              break;
+            case 4:
+              joutput("(int)(");
+              break;
+            }
+          }
           joutput_data(x);
           if (!integer_reference_flag) {
             switch (f->size) {
             case 2:
-              joutput(".bswap_16()");
+              joutput(".bswap_16())");
               break;
             case 4:
-              joutput(".bswap_32()");
+              joutput(".bswap_32())");
               break;
             case 8:
               joutput(".bswap_64()");

tests/data-rep.src/binary.at

@@ -1534,4 +1534,28 @@ AT_DATA([prog.cbl],[
 AT_CHECK([${COMPILE} prog.cbl])
 AT_CHECK([java prog])
 
+AT_CLEANUP
+
+AT_SETUP([COMP: WRITE AFTER LINE])
+AT_DATA([prog.cbl], [
+       IDENTIFICATION  DIVISION.                                                
+       PROGRAM-ID.     prog.                                                  
+       ENVIRONMENT      DIVISION.
+       INPUT-OUTPUT      SECTION.                                               
+       FILE-CONTROL.                                                           
+           SELECT F ASSIGN  TO  "FILE".
+       DATA DIVISION.                                              
+       FILE SECTION.
+       FD  F.
+       01  F-REC PIC X(10).
+       WORKING-STORAGE SECTION.                                               
+       01  A PIC S9(6) COMP VALUE 0.
+       01  REC PIC X(10).
+       PROCEDURE DIVISION.
+           WRITE F-REC FROM REC AFTER A LINE.
+           STOP RUN.
+])
+
+AT_CHECK([${COMPILE} prog.cbl])
+
 AT_CLEANUP