diff --git a/tests/testsuite.src/data_binary.at b/tests/testsuite.src/data_binary.at index 5d18ba24..75c0a2b4 100644 --- a/tests/testsuite.src/data_binary.at +++ b/tests/testsuite.src/data_binary.at @@ -1406,883 +1406,6 @@ DISPLAY: 85 != BINARY : 217 AT_CLEANUP -AT_SETUP([Fixed BINARY size]) -AT_KEYWORDS([binary]) - -AT_DATA([prog.cob], [ - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - - ENVIRONMENT DIVISION. - CONFIGURATION SECTION. - REPOSITORY. FUNCTION BYTE-LENGTH INTRINSIC. - - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 WS-BCS BINARY-CHAR SIGNED. - 01 WS-BCU BINARY-CHAR UNSIGNED. - 01 WS-BSS BINARY-SHORT SIGNED. - 01 WS-BSU BINARY-SHORT UNSIGNED. - 01 WS-BLS BINARY-LONG SIGNED. - 01 WS-BLU BINARY-LONG UNSIGNED. - 01 WS-BDS BINARY-DOUBLE SIGNED. - 01 WS-BDU BINARY-DOUBLE UNSIGNED. - - PROCEDURE DIVISION. - MAIN. - IF BYTE-LENGTH(WS-BCS) <> 1 - DISPLAY "BAD BINARY-CHAR SIGNED". - IF BYTE-LENGTH(WS-BCU) <> 1 - DISPLAY "BAD BINARY-CHAR UNSIGNED". - IF BYTE-LENGTH(WS-BSS) <> 2 - DISPLAY "BAD BINARY-SHORT SIGNED". - IF BYTE-LENGTH(WS-BSU) <> 2 - DISPLAY "BAD BINARY-SHORT UNSIGNED". - IF BYTE-LENGTH(WS-BLS) <> 4 - DISPLAY "BAD BINARY-LONG SIGNED". - IF BYTE-LENGTH(WS-BLU) <> 4 - DISPLAY "BAD BINARY-LONG UNSIGNED". - IF BYTE-LENGTH(WS-BDS) <> 8 - DISPLAY "BAD BINARY-DOUBLE SIGNED". - IF BYTE-LENGTH(WS-BDU) <> 8 - DISPLAY "BAD BINARY-DOUBLE UNSIGNED". - STOP RUN. -]) - -AT_CHECK([$COMPILE -Wno-constant-expression -fbinary-size=1-2-4-8 prog.cob], [0], [], []) -AT_CHECK([$COBCRUN_DIRECT ./prog], [0], [], []) - -AT_CHECK([$COMPILE -Wno-constant-expression -fbinary-size=2-4-8 prog.cob], [0], [], []) -AT_CHECK([$COBCRUN_DIRECT ./prog], [0], [], []) - -AT_CHECK([$COMPILE -Wno-constant-expression -fbinary-size=1--8 prog.cob], [0], [], []) -AT_CHECK([$COBCRUN_DIRECT ./prog], [0], [], []) - -AT_CLEANUP - - -AT_SETUP([COMP-5 binary size]) -AT_KEYWORDS([binary]) - -AT_DATA([prog.cob], [ - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - - ENVIRONMENT DIVISION. - CONFIGURATION SECTION. - REPOSITORY. FUNCTION BYTE-LENGTH INTRINSIC. - - DATA DIVISION. - WORKING-STORAGE SECTION. - - 01 WS-1 PIC V9(1) COMP-5. - 01 WS-2 PIC V9(2) COMP-5. - 01 WS-3 PIC V9(3) COMP-5. - 01 WS-4 PIC V9(4) COMP-5. - 01 WS-5 PIC V9(5) COMP-5. - 01 WS-6 PIC V9(6) COMP-5. - 01 WS-7 PIC V9(7) COMP-5. - 01 WS-8 PIC V9(8) COMP-5. - 01 WS-9 PIC V9(9) COMP-5. - 01 WS-10 PIC V9(10) COMP-5. - 01 WS-11 PIC V9(11) COMP-5. - 01 WS-12 PIC V9(12) COMP-5. - 01 WS-13 PIC V9(13) COMP-5. - 01 WS-14 PIC V9(14) COMP-5. - 01 WS-15 PIC V9(15) COMP-5. - 01 WS-16 PIC V9(16) COMP-5. - 01 WS-17 PIC V9(17) COMP-5. - 01 WS-18 PIC V9(18) COMP-5. - 01 WS-19 PIC V9(19) COMP-5. - 01 WS-20 PIC V9(20) COMP-5. - 01 WS-21 PIC V9(21) COMP-5. - 01 WS-22 PIC V9(22) COMP-5. - 01 WS-23 PIC V9(23) COMP-5. - 01 WS-24 PIC V9(24) COMP-5. - 01 WS-25 PIC V9(25) COMP-5. - 01 WS-26 PIC V9(26) COMP-5. - 01 WS-27 PIC V9(27) COMP-5. - 01 WS-28 PIC V9(28) COMP-5. - 01 WS-29 PIC V9(29) COMP-5. - 01 WS-30 PIC V9(30) COMP-5. - 01 WS-31 PIC V9(31) COMP-5. - 01 WS-32 PIC V9(32) COMP-5. - 01 WS-33 PIC V9(33) COMP-5. - 01 WS-34 PIC V9(34) COMP-5. - 01 WS-35 PIC V9(35) COMP-5. - 01 WS-36 PIC V9(36) COMP-5. - 01 WS-37 PIC V9(37) COMP-5. - 01 WS-38 PIC V9(38) COMP-5. - 01 WS-39 PIC V9(39) COMP-5. - - 01 WS-P1 PIC VPP9(1) COMP-5. - 01 WS-P2 PIC VPP9(2) COMP-5. - 01 WS-P3 PIC VPP9(3) COMP-5. - 01 WS-P4 PIC VPP9(4) COMP-5. - 01 WS-P5 PIC VPP9(5) COMP-5. - 01 WS-P6 PIC VPP9(6) COMP-5. - 01 WS-P7 PIC VPP9(7) COMP-5. - 01 WS-P8 PIC VPP9(8) COMP-5. - 01 WS-P9 PIC VPP9(9) COMP-5. - 01 WS-P10 PIC VPP9(10) COMP-5. - 01 WS-P11 PIC VPP9(11) COMP-5. - 01 WS-P12 PIC VPP9(12) COMP-5. - 01 WS-P13 PIC VPP9(13) COMP-5. - 01 WS-P14 PIC VPP9(14) COMP-5. - 01 WS-P15 PIC VPP9(15) COMP-5. - 01 WS-P16 PIC VPP9(16) COMP-5. - 01 WS-P17 PIC VPP9(17) COMP-5. - 01 WS-P18 PIC VPP9(18) COMP-5. - 01 WS-P19 PIC VPP9(19) COMP-5. - 01 WS-P20 PIC VPP9(20) COMP-5. - 01 WS-P21 PIC VPP9(21) COMP-5. - 01 WS-P22 PIC VPP9(22) COMP-5. - 01 WS-P23 PIC VPP9(23) COMP-5. - 01 WS-P24 PIC VPP9(24) COMP-5. - 01 WS-P25 PIC VPP9(25) COMP-5. - 01 WS-P26 PIC VPP9(26) COMP-5. - 01 WS-P27 PIC VPP9(27) COMP-5. - 01 WS-P28 PIC VPP9(28) COMP-5. - 01 WS-P29 PIC VPP9(29) COMP-5. - 01 WS-P30 PIC VPP9(30) COMP-5. - 01 WS-P31 PIC VPP9(31) COMP-5. - 01 WS-P32 PIC VPP9(32) COMP-5. - 01 WS-P33 PIC VPP9(33) COMP-5. - 01 WS-P34 PIC VPP9(34) COMP-5. - 01 WS-P35 PIC VPP9(35) COMP-5. - 01 WS-P36 PIC VPP9(36) COMP-5. - 01 WS-P37 PIC VPP9(37) COMP-5. - 01 WS-P38 PIC VP9(38) COMP-5. - 01 WS-P39 PIC V9(39) COMP-5. - - 01 WS-S1 PIC SV9(1) COMP-5. - 01 WS-S2 PIC SV9(2) COMP-5. - 01 WS-S3 PIC SV9(3) COMP-5. - 01 WS-S4 PIC SV9(4) COMP-5. - 01 WS-S5 PIC SV9(5) COMP-5. - 01 WS-S6 PIC SV9(6) COMP-5. - 01 WS-S7 PIC SV9(7) COMP-5. - 01 WS-S8 PIC SV9(8) COMP-5. - 01 WS-S9 PIC SV9(9) COMP-5. - 01 WS-S10 PIC SV9(10) COMP-5. - 01 WS-S11 PIC SV9(11) COMP-5. - 01 WS-S12 PIC SV9(12) COMP-5. - 01 WS-S13 PIC SV9(13) COMP-5. - 01 WS-S14 PIC SV9(14) COMP-5. - 01 WS-S15 PIC SV9(15) COMP-5. - 01 WS-S16 PIC SV9(16) COMP-5. - 01 WS-S17 PIC SV9(17) COMP-5. - 01 WS-S18 PIC SV9(18) COMP-5. - 01 WS-S19 PIC SV9(19) COMP-5. - 01 WS-S20 PIC SV9(20) COMP-5. - 01 WS-S21 PIC SV9(21) COMP-5. - 01 WS-S22 PIC SV9(22) COMP-5. - 01 WS-S23 PIC SV9(23) COMP-5. - 01 WS-S24 PIC SV9(24) COMP-5. - 01 WS-S25 PIC SV9(25) COMP-5. - 01 WS-S26 PIC SV9(26) COMP-5. - 01 WS-S27 PIC SV9(27) COMP-5. - 01 WS-S28 PIC SV9(28) COMP-5. - 01 WS-S29 PIC SV9(29) COMP-5. - 01 WS-S30 PIC SV9(30) COMP-5. - 01 WS-S31 PIC SV9(31) COMP-5. - 01 WS-S32 PIC SV9(32) COMP-5. - 01 WS-S33 PIC SV9(33) COMP-5. - 01 WS-S34 PIC SV9(34) COMP-5. - 01 WS-S35 PIC SV9(35) COMP-5. - 01 WS-S36 PIC SV9(36) COMP-5. - 01 WS-S37 PIC SV9(37) COMP-5. - 01 WS-S38 PIC SV9(38) COMP-5. - 01 WS-S39 PIC SV9(39) COMP-5. - - 01 WS-SP1 PIC SVPP9(1) COMP-5. - 01 WS-SP2 PIC SVPP9(2) COMP-5. - 01 WS-SP3 PIC SVPP9(3) COMP-5. - 01 WS-SP4 PIC SVPP9(4) COMP-5. - 01 WS-SP5 PIC SVPP9(5) COMP-5. - 01 WS-SP6 PIC SVPP9(6) COMP-5. - 01 WS-SP7 PIC SVPP9(7) COMP-5. - 01 WS-SP8 PIC SVPP9(8) COMP-5. - 01 WS-SP9 PIC SVPP9(9) COMP-5. - 01 WS-SP10 PIC SVPP9(10) COMP-5. - 01 WS-SP11 PIC SVPP9(11) COMP-5. - 01 WS-SP12 PIC SVPP9(12) COMP-5. - 01 WS-SP13 PIC SVPP9(13) COMP-5. - 01 WS-SP14 PIC SVPP9(14) COMP-5. - 01 WS-SP15 PIC SVPP9(15) COMP-5. - 01 WS-SP16 PIC SVPP9(16) COMP-5. - 01 WS-SP17 PIC SVPP9(17) COMP-5. - 01 WS-SP18 PIC SVPP9(18) COMP-5. - 01 WS-SP19 PIC SVPP9(19) COMP-5. - 01 WS-SP20 PIC SVPP9(20) COMP-5. - 01 WS-SP21 PIC SVPP9(21) COMP-5. - 01 WS-SP22 PIC SVPP9(22) COMP-5. - 01 WS-SP23 PIC SVPP9(23) COMP-5. - 01 WS-SP24 PIC SVPP9(24) COMP-5. - 01 WS-SP25 PIC SVPP9(25) COMP-5. - 01 WS-SP26 PIC SVPP9(26) COMP-5. - 01 WS-SP27 PIC SVPP9(27) COMP-5. - 01 WS-SP28 PIC SVPP9(28) COMP-5. - 01 WS-SP29 PIC SVPP9(29) COMP-5. - 01 WS-SP30 PIC SVPP9(30) COMP-5. - 01 WS-SP31 PIC SVPP9(31) COMP-5. - 01 WS-SP32 PIC SVPP9(32) COMP-5. - 01 WS-SP33 PIC SVPP9(33) COMP-5. - 01 WS-SP34 PIC SVPP9(34) COMP-5. - 01 WS-SP35 PIC SVPP9(35) COMP-5. - 01 WS-SP36 PIC SVPP9(36) COMP-5. - 01 WS-SP37 PIC SVPP9(37) COMP-5. - 01 WS-SP38 PIC SVP9(38) COMP-5. - 01 WS-SP39 PIC SV9(39) COMP-5. - - PROCEDURE DIVISION. - MAIN. - DISPLAY "V9(1): " BYTE-LENGTH (WS-1). - DISPLAY "V9(2): " BYTE-LENGTH (WS-2). - DISPLAY "V9(3): " BYTE-LENGTH (WS-3). - DISPLAY "V9(4): " BYTE-LENGTH (WS-4). - DISPLAY "V9(5): " BYTE-LENGTH (WS-5). - DISPLAY "V9(6): " BYTE-LENGTH (WS-6). - DISPLAY "V9(7): " BYTE-LENGTH (WS-7). - DISPLAY "V9(8): " BYTE-LENGTH (WS-8). - DISPLAY "V9(9): " BYTE-LENGTH (WS-9). - DISPLAY "V9(10): " BYTE-LENGTH (WS-10). - DISPLAY "V9(11): " BYTE-LENGTH (WS-11). - DISPLAY "V9(12): " BYTE-LENGTH (WS-12). - DISPLAY "V9(13): " BYTE-LENGTH (WS-13). - DISPLAY "V9(14): " BYTE-LENGTH (WS-14). - DISPLAY "V9(15): " BYTE-LENGTH (WS-15). - DISPLAY "V9(16): " BYTE-LENGTH (WS-16). - DISPLAY "V9(17): " BYTE-LENGTH (WS-17). - DISPLAY "V9(18): " BYTE-LENGTH (WS-18). - DISPLAY "V9(19): " BYTE-LENGTH (WS-19). - DISPLAY "V9(20): " BYTE-LENGTH (WS-20). - DISPLAY "V9(21): " BYTE-LENGTH (WS-21). - DISPLAY "V9(22): " BYTE-LENGTH (WS-22). - DISPLAY "V9(23): " BYTE-LENGTH (WS-23). - DISPLAY "V9(24): " BYTE-LENGTH (WS-24). - DISPLAY "V9(25): " BYTE-LENGTH (WS-25). - DISPLAY "V9(26): " BYTE-LENGTH (WS-26). - DISPLAY "V9(27): " BYTE-LENGTH (WS-27). - DISPLAY "V9(28): " BYTE-LENGTH (WS-28). - DISPLAY "V9(29): " BYTE-LENGTH (WS-29). - DISPLAY "V9(30): " BYTE-LENGTH (WS-30). - DISPLAY "V9(31): " BYTE-LENGTH (WS-31). - DISPLAY "V9(32): " BYTE-LENGTH (WS-32). - DISPLAY "V9(33): " BYTE-LENGTH (WS-33). - DISPLAY "V9(34): " BYTE-LENGTH (WS-34). - DISPLAY "V9(35): " BYTE-LENGTH (WS-35). - DISPLAY "V9(36): " BYTE-LENGTH (WS-36). - DISPLAY "V9(37): " BYTE-LENGTH (WS-37). - DISPLAY "V9(38): " BYTE-LENGTH (WS-38). - DISPLAY "V9(39): " BYTE-LENGTH (WS-39). - - DISPLAY "VPP9(1): " BYTE-LENGTH (WS-P1). - DISPLAY "VPP9(2): " BYTE-LENGTH (WS-P2). - DISPLAY "VPP9(3): " BYTE-LENGTH (WS-P3). - DISPLAY "VPP9(4): " BYTE-LENGTH (WS-P4). - DISPLAY "VPP9(5): " BYTE-LENGTH (WS-P5). - DISPLAY "VPP9(6): " BYTE-LENGTH (WS-P6). - DISPLAY "VPP9(7): " BYTE-LENGTH (WS-P7). - DISPLAY "VPP9(8): " BYTE-LENGTH (WS-P8). - DISPLAY "VPP9(9): " BYTE-LENGTH (WS-P9). - DISPLAY "VPP9(10): " BYTE-LENGTH (WS-P10). - DISPLAY "VPP9(11): " BYTE-LENGTH (WS-P11). - DISPLAY "VPP9(12): " BYTE-LENGTH (WS-P12). - DISPLAY "VPP9(13): " BYTE-LENGTH (WS-P13). - DISPLAY "VPP9(14): " BYTE-LENGTH (WS-P14). - DISPLAY "VPP9(15): " BYTE-LENGTH (WS-P15). - DISPLAY "VPP9(16): " BYTE-LENGTH (WS-P16). - DISPLAY "VPP9(17): " BYTE-LENGTH (WS-P17). - DISPLAY "VPP9(18): " BYTE-LENGTH (WS-P18). - DISPLAY "VPP9(19): " BYTE-LENGTH (WS-P19). - DISPLAY "VPP9(20): " BYTE-LENGTH (WS-P20). - DISPLAY "VPP9(21): " BYTE-LENGTH (WS-P21). - DISPLAY "VPP9(22): " BYTE-LENGTH (WS-P22). - DISPLAY "VPP9(23): " BYTE-LENGTH (WS-P23). - DISPLAY "VPP9(24): " BYTE-LENGTH (WS-P24). - DISPLAY "VPP9(25): " BYTE-LENGTH (WS-P25). - DISPLAY "VPP9(26): " BYTE-LENGTH (WS-P26). - DISPLAY "VPP9(27): " BYTE-LENGTH (WS-P27). - DISPLAY "VPP9(28): " BYTE-LENGTH (WS-P28). - DISPLAY "VPP9(29): " BYTE-LENGTH (WS-P29). - DISPLAY "VPP9(30): " BYTE-LENGTH (WS-P30). - DISPLAY "VPP9(31): " BYTE-LENGTH (WS-P31). - DISPLAY "VPP9(32): " BYTE-LENGTH (WS-P32). - DISPLAY "VPP9(33): " BYTE-LENGTH (WS-P33). - DISPLAY "VPP9(34): " BYTE-LENGTH (WS-P34). - DISPLAY "VPP9(35): " BYTE-LENGTH (WS-P35). - DISPLAY "VPP9(36): " BYTE-LENGTH (WS-P36). - DISPLAY "VPP9(37): " BYTE-LENGTH (WS-P37). - DISPLAY "VP9(38): " BYTE-LENGTH (WS-P38). - DISPLAY "V9(39): " BYTE-LENGTH (WS-P39). - - DISPLAY "SV9(1): " BYTE-LENGTH (WS-S1). - DISPLAY "SV9(2): " BYTE-LENGTH (WS-S2). - DISPLAY "SV9(3): " BYTE-LENGTH (WS-S3). - DISPLAY "SV9(4): " BYTE-LENGTH (WS-S4). - DISPLAY "SV9(5): " BYTE-LENGTH (WS-S5). - DISPLAY "SV9(6): " BYTE-LENGTH (WS-S6). - DISPLAY "SV9(7): " BYTE-LENGTH (WS-S7). - DISPLAY "SV9(8): " BYTE-LENGTH (WS-S8). - DISPLAY "SV9(9): " BYTE-LENGTH (WS-S9). - DISPLAY "SV9(10): " BYTE-LENGTH (WS-S10). - DISPLAY "SV9(11): " BYTE-LENGTH (WS-S11). - DISPLAY "SV9(12): " BYTE-LENGTH (WS-S12). - DISPLAY "SV9(13): " BYTE-LENGTH (WS-S13). - DISPLAY "SV9(14): " BYTE-LENGTH (WS-S14). - DISPLAY "SV9(15): " BYTE-LENGTH (WS-S15). - DISPLAY "SV9(16): " BYTE-LENGTH (WS-S16). - DISPLAY "SV9(17): " BYTE-LENGTH (WS-S17). - DISPLAY "SV9(18): " BYTE-LENGTH (WS-S18). - DISPLAY "SV9(19): " BYTE-LENGTH (WS-S19). - DISPLAY "SV9(20): " BYTE-LENGTH (WS-S20). - DISPLAY "SV9(21): " BYTE-LENGTH (WS-S21). - DISPLAY "SV9(22): " BYTE-LENGTH (WS-S22). - DISPLAY "SV9(23): " BYTE-LENGTH (WS-S23). - DISPLAY "SV9(24): " BYTE-LENGTH (WS-S24). - DISPLAY "SV9(25): " BYTE-LENGTH (WS-S25). - DISPLAY "SV9(26): " BYTE-LENGTH (WS-S26). - DISPLAY "SV9(27): " BYTE-LENGTH (WS-S27). - DISPLAY "SV9(28): " BYTE-LENGTH (WS-S28). - DISPLAY "SV9(29): " BYTE-LENGTH (WS-S29). - DISPLAY "SV9(30): " BYTE-LENGTH (WS-S30). - DISPLAY "SV9(31): " BYTE-LENGTH (WS-S31). - DISPLAY "SV9(32): " BYTE-LENGTH (WS-S32). - DISPLAY "SV9(33): " BYTE-LENGTH (WS-S33). - DISPLAY "SV9(34): " BYTE-LENGTH (WS-S34). - DISPLAY "SV9(35): " BYTE-LENGTH (WS-S35). - DISPLAY "SV9(36): " BYTE-LENGTH (WS-S36). - DISPLAY "SV9(37): " BYTE-LENGTH (WS-S37). - DISPLAY "SV9(38): " BYTE-LENGTH (WS-S38). - DISPLAY "SV9(39): " BYTE-LENGTH (WS-S39). - - DISPLAY "SVPP9(1): " BYTE-LENGTH (WS-SP1). - DISPLAY "SVPP9(2): " BYTE-LENGTH (WS-SP2). - DISPLAY "SVPP9(3): " BYTE-LENGTH (WS-SP3). - DISPLAY "SVPP9(4): " BYTE-LENGTH (WS-SP4). - DISPLAY "SVPP9(5): " BYTE-LENGTH (WS-SP5). - DISPLAY "SVPP9(6): " BYTE-LENGTH (WS-SP6). - DISPLAY "SVPP9(7): " BYTE-LENGTH (WS-SP7). - DISPLAY "SVPP9(8): " BYTE-LENGTH (WS-SP8). - DISPLAY "SVPP9(9): " BYTE-LENGTH (WS-SP9). - DISPLAY "SVPP9(10): " BYTE-LENGTH (WS-SP10). - DISPLAY "SVPP9(11): " BYTE-LENGTH (WS-SP11). - DISPLAY "SVPP9(12): " BYTE-LENGTH (WS-SP12). - DISPLAY "SVPP9(13): " BYTE-LENGTH (WS-SP13). - DISPLAY "SVPP9(14): " BYTE-LENGTH (WS-SP14). - DISPLAY "SVPP9(15): " BYTE-LENGTH (WS-SP15). - DISPLAY "SVPP9(16): " BYTE-LENGTH (WS-SP16). - DISPLAY "SVPP9(17): " BYTE-LENGTH (WS-SP17). - DISPLAY "SVPP9(18): " BYTE-LENGTH (WS-SP18). - DISPLAY "SVPP9(19): " BYTE-LENGTH (WS-SP19). - DISPLAY "SVPP9(20): " BYTE-LENGTH (WS-SP20). - DISPLAY "SVPP9(21): " BYTE-LENGTH (WS-SP21). - DISPLAY "SVPP9(22): " BYTE-LENGTH (WS-SP22). - DISPLAY "SVPP9(23): " BYTE-LENGTH (WS-SP23). - DISPLAY "SVPP9(24): " BYTE-LENGTH (WS-SP24). - DISPLAY "SVPP9(25): " BYTE-LENGTH (WS-SP25). - DISPLAY "SVPP9(26): " BYTE-LENGTH (WS-SP26). - DISPLAY "SVPP9(27): " BYTE-LENGTH (WS-SP27). - DISPLAY "SVPP9(28): " BYTE-LENGTH (WS-SP28). - DISPLAY "SVPP9(29): " BYTE-LENGTH (WS-SP29). - DISPLAY "SVPP9(30): " BYTE-LENGTH (WS-SP30). - DISPLAY "SVPP9(31): " BYTE-LENGTH (WS-SP31). - DISPLAY "SVPP9(32): " BYTE-LENGTH (WS-SP32). - DISPLAY "SVPP9(33): " BYTE-LENGTH (WS-SP33). - DISPLAY "SVPP9(34): " BYTE-LENGTH (WS-SP34). - DISPLAY "SVPP9(35): " BYTE-LENGTH (WS-SP35). - DISPLAY "SVPP9(36): " BYTE-LENGTH (WS-SP36). - DISPLAY "SVPP9(37): " BYTE-LENGTH (WS-SP37). - DISPLAY "SVP9(38): " BYTE-LENGTH (WS-SP38). - DISPLAY "SV9(39): " BYTE-LENGTH (WS-SP39). - - STOP RUN. -]) - -AT_CHECK([$COMPILE -fbinary-size=1-2-4-8 prog.cob], [0], [], []) -AT_CHECK([$COBCRUN_DIRECT ./prog], [0], -[V9(1): 1 -V9(2): 1 -V9(3): 2 -V9(4): 2 -V9(5): 4 -V9(6): 4 -V9(7): 4 -V9(8): 4 -V9(9): 4 -V9(10): 8 -V9(11): 8 -V9(12): 8 -V9(13): 8 -V9(14): 8 -V9(15): 8 -V9(16): 8 -V9(17): 8 -V9(18): 8 -V9(19): 16 -V9(20): 16 -V9(21): 16 -V9(22): 16 -V9(23): 16 -V9(24): 16 -V9(25): 16 -V9(26): 16 -V9(27): 16 -V9(28): 16 -V9(29): 16 -V9(30): 16 -V9(31): 16 -V9(32): 16 -V9(33): 16 -V9(34): 16 -V9(35): 16 -V9(36): 16 -V9(37): 16 -V9(38): 16 -V9(39): 16 -VPP9(1): 1 -VPP9(2): 1 -VPP9(3): 2 -VPP9(4): 2 -VPP9(5): 4 -VPP9(6): 4 -VPP9(7): 4 -VPP9(8): 4 -VPP9(9): 4 -VPP9(10): 8 -VPP9(11): 8 -VPP9(12): 8 -VPP9(13): 8 -VPP9(14): 8 -VPP9(15): 8 -VPP9(16): 8 -VPP9(17): 8 -VPP9(18): 8 -VPP9(19): 16 -VPP9(20): 16 -VPP9(21): 16 -VPP9(22): 16 -VPP9(23): 16 -VPP9(24): 16 -VPP9(25): 16 -VPP9(26): 16 -VPP9(27): 16 -VPP9(28): 16 -VPP9(29): 16 -VPP9(30): 16 -VPP9(31): 16 -VPP9(32): 16 -VPP9(33): 16 -VPP9(34): 16 -VPP9(35): 16 -VPP9(36): 16 -VPP9(37): 16 -VP9(38): 16 -V9(39): 16 -SV9(1): 1 -SV9(2): 1 -SV9(3): 2 -SV9(4): 2 -SV9(5): 4 -SV9(6): 4 -SV9(7): 4 -SV9(8): 4 -SV9(9): 4 -SV9(10): 8 -SV9(11): 8 -SV9(12): 8 -SV9(13): 8 -SV9(14): 8 -SV9(15): 8 -SV9(16): 8 -SV9(17): 8 -SV9(18): 8 -SV9(19): 16 -SV9(20): 16 -SV9(21): 16 -SV9(22): 16 -SV9(23): 16 -SV9(24): 16 -SV9(25): 16 -SV9(26): 16 -SV9(27): 16 -SV9(28): 16 -SV9(29): 16 -SV9(30): 16 -SV9(31): 16 -SV9(32): 16 -SV9(33): 16 -SV9(34): 16 -SV9(35): 16 -SV9(36): 16 -SV9(37): 16 -SV9(38): 16 -SV9(39): 16 -SVPP9(1): 1 -SVPP9(2): 1 -SVPP9(3): 2 -SVPP9(4): 2 -SVPP9(5): 4 -SVPP9(6): 4 -SVPP9(7): 4 -SVPP9(8): 4 -SVPP9(9): 4 -SVPP9(10): 8 -SVPP9(11): 8 -SVPP9(12): 8 -SVPP9(13): 8 -SVPP9(14): 8 -SVPP9(15): 8 -SVPP9(16): 8 -SVPP9(17): 8 -SVPP9(18): 8 -SVPP9(19): 16 -SVPP9(20): 16 -SVPP9(21): 16 -SVPP9(22): 16 -SVPP9(23): 16 -SVPP9(24): 16 -SVPP9(25): 16 -SVPP9(26): 16 -SVPP9(27): 16 -SVPP9(28): 16 -SVPP9(29): 16 -SVPP9(30): 16 -SVPP9(31): 16 -SVPP9(32): 16 -SVPP9(33): 16 -SVPP9(34): 16 -SVPP9(35): 16 -SVPP9(36): 16 -SVPP9(37): 16 -SVP9(38): 16 -SV9(39): 16 -], []) - -AT_CHECK([$COMPILE -fbinary-size=2-4-8 prog.cob], [0], [], []) -AT_CHECK([$COBCRUN_DIRECT ./prog], [0], -[V9(1): 2 -V9(2): 2 -V9(3): 2 -V9(4): 2 -V9(5): 4 -V9(6): 4 -V9(7): 4 -V9(8): 4 -V9(9): 4 -V9(10): 8 -V9(11): 8 -V9(12): 8 -V9(13): 8 -V9(14): 8 -V9(15): 8 -V9(16): 8 -V9(17): 8 -V9(18): 8 -V9(19): 16 -V9(20): 16 -V9(21): 16 -V9(22): 16 -V9(23): 16 -V9(24): 16 -V9(25): 16 -V9(26): 16 -V9(27): 16 -V9(28): 16 -V9(29): 16 -V9(30): 16 -V9(31): 16 -V9(32): 16 -V9(33): 16 -V9(34): 16 -V9(35): 16 -V9(36): 16 -V9(37): 16 -V9(38): 16 -V9(39): 16 -VPP9(1): 2 -VPP9(2): 2 -VPP9(3): 2 -VPP9(4): 2 -VPP9(5): 4 -VPP9(6): 4 -VPP9(7): 4 -VPP9(8): 4 -VPP9(9): 4 -VPP9(10): 8 -VPP9(11): 8 -VPP9(12): 8 -VPP9(13): 8 -VPP9(14): 8 -VPP9(15): 8 -VPP9(16): 8 -VPP9(17): 8 -VPP9(18): 8 -VPP9(19): 16 -VPP9(20): 16 -VPP9(21): 16 -VPP9(22): 16 -VPP9(23): 16 -VPP9(24): 16 -VPP9(25): 16 -VPP9(26): 16 -VPP9(27): 16 -VPP9(28): 16 -VPP9(29): 16 -VPP9(30): 16 -VPP9(31): 16 -VPP9(32): 16 -VPP9(33): 16 -VPP9(34): 16 -VPP9(35): 16 -VPP9(36): 16 -VPP9(37): 16 -VP9(38): 16 -V9(39): 16 -SV9(1): 2 -SV9(2): 2 -SV9(3): 2 -SV9(4): 2 -SV9(5): 4 -SV9(6): 4 -SV9(7): 4 -SV9(8): 4 -SV9(9): 4 -SV9(10): 8 -SV9(11): 8 -SV9(12): 8 -SV9(13): 8 -SV9(14): 8 -SV9(15): 8 -SV9(16): 8 -SV9(17): 8 -SV9(18): 8 -SV9(19): 16 -SV9(20): 16 -SV9(21): 16 -SV9(22): 16 -SV9(23): 16 -SV9(24): 16 -SV9(25): 16 -SV9(26): 16 -SV9(27): 16 -SV9(28): 16 -SV9(29): 16 -SV9(30): 16 -SV9(31): 16 -SV9(32): 16 -SV9(33): 16 -SV9(34): 16 -SV9(35): 16 -SV9(36): 16 -SV9(37): 16 -SV9(38): 16 -SV9(39): 16 -SVPP9(1): 2 -SVPP9(2): 2 -SVPP9(3): 2 -SVPP9(4): 2 -SVPP9(5): 4 -SVPP9(6): 4 -SVPP9(7): 4 -SVPP9(8): 4 -SVPP9(9): 4 -SVPP9(10): 8 -SVPP9(11): 8 -SVPP9(12): 8 -SVPP9(13): 8 -SVPP9(14): 8 -SVPP9(15): 8 -SVPP9(16): 8 -SVPP9(17): 8 -SVPP9(18): 8 -SVPP9(19): 16 -SVPP9(20): 16 -SVPP9(21): 16 -SVPP9(22): 16 -SVPP9(23): 16 -SVPP9(24): 16 -SVPP9(25): 16 -SVPP9(26): 16 -SVPP9(27): 16 -SVPP9(28): 16 -SVPP9(29): 16 -SVPP9(30): 16 -SVPP9(31): 16 -SVPP9(32): 16 -SVPP9(33): 16 -SVPP9(34): 16 -SVPP9(35): 16 -SVPP9(36): 16 -SVPP9(37): 16 -SVP9(38): 16 -SV9(39): 16 -], []) - -AT_CHECK([$COMPILE -fbinary-size=1--8 prog.cob], [0], [], []) -AT_CHECK([$COBCRUN_DIRECT ./prog], [0], -[V9(1): 1 -V9(2): 1 -V9(3): 2 -V9(4): 2 -V9(5): 3 -V9(6): 3 -V9(7): 3 -V9(8): 4 -V9(9): 4 -V9(10): 5 -V9(11): 5 -V9(12): 5 -V9(13): 6 -V9(14): 6 -V9(15): 7 -V9(16): 7 -V9(17): 8 -V9(18): 8 -V9(19): 8 -V9(20): 9 -V9(21): 9 -V9(22): 10 -V9(23): 10 -V9(24): 10 -V9(25): 11 -V9(26): 11 -V9(27): 12 -V9(28): 12 -V9(29): 13 -V9(30): 13 -V9(31): 13 -V9(32): 14 -V9(33): 14 -V9(34): 15 -V9(35): 15 -V9(36): 15 -V9(37): 16 -V9(38): 16 -V9(39): 16 -VPP9(1): 1 -VPP9(2): 1 -VPP9(3): 2 -VPP9(4): 2 -VPP9(5): 3 -VPP9(6): 3 -VPP9(7): 3 -VPP9(8): 4 -VPP9(9): 4 -VPP9(10): 5 -VPP9(11): 5 -VPP9(12): 5 -VPP9(13): 6 -VPP9(14): 6 -VPP9(15): 7 -VPP9(16): 7 -VPP9(17): 8 -VPP9(18): 8 -VPP9(19): 8 -VPP9(20): 9 -VPP9(21): 9 -VPP9(22): 10 -VPP9(23): 10 -VPP9(24): 10 -VPP9(25): 11 -VPP9(26): 11 -VPP9(27): 12 -VPP9(28): 12 -VPP9(29): 13 -VPP9(30): 13 -VPP9(31): 13 -VPP9(32): 14 -VPP9(33): 14 -VPP9(34): 15 -VPP9(35): 15 -VPP9(36): 15 -VPP9(37): 16 -VP9(38): 16 -V9(39): 16 -SV9(1): 1 -SV9(2): 1 -SV9(3): 2 -SV9(4): 2 -SV9(5): 3 -SV9(6): 3 -SV9(7): 4 -SV9(8): 4 -SV9(9): 4 -SV9(10): 5 -SV9(11): 5 -SV9(12): 6 -SV9(13): 6 -SV9(14): 6 -SV9(15): 7 -SV9(16): 7 -SV9(17): 8 -SV9(18): 8 -SV9(19): 9 -SV9(20): 9 -SV9(21): 9 -SV9(22): 10 -SV9(23): 10 -SV9(24): 11 -SV9(25): 11 -SV9(26): 11 -SV9(27): 12 -SV9(28): 12 -SV9(29): 13 -SV9(30): 13 -SV9(31): 13 -SV9(32): 14 -SV9(33): 14 -SV9(34): 15 -SV9(35): 15 -SV9(36): 16 -SV9(37): 16 -SV9(38): 16 -SV9(39): 16 -SVPP9(1): 1 -SVPP9(2): 1 -SVPP9(3): 2 -SVPP9(4): 2 -SVPP9(5): 3 -SVPP9(6): 3 -SVPP9(7): 4 -SVPP9(8): 4 -SVPP9(9): 4 -SVPP9(10): 5 -SVPP9(11): 5 -SVPP9(12): 6 -SVPP9(13): 6 -SVPP9(14): 6 -SVPP9(15): 7 -SVPP9(16): 7 -SVPP9(17): 8 -SVPP9(18): 8 -SVPP9(19): 9 -SVPP9(20): 9 -SVPP9(21): 9 -SVPP9(22): 10 -SVPP9(23): 10 -SVPP9(24): 11 -SVPP9(25): 11 -SVPP9(26): 11 -SVPP9(27): 12 -SVPP9(28): 12 -SVPP9(29): 13 -SVPP9(30): 13 -SVPP9(31): 13 -SVPP9(32): 14 -SVPP9(33): 14 -SVPP9(34): 15 -SVPP9(35): 15 -SVPP9(36): 16 -SVPP9(37): 16 -SVP9(38): 16 -SV9(39): 16 -], []) - -AT_CLEANUP - - AT_SETUP([MOVE DISPLAY to BINARY]) AT_KEYWORDS([fundamental PPP]) @@ -3146,4 +2269,3 @@ AT_CHECK([$COMPILE prog.cob], [0], [], []) AT_CHECK([$COBCRUN_DIRECT ./prog], [0], [], []) AT_CLEANUP ->>>>>>> .merge-right.r5018