nilopaim/tinycobol
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

version 0.73.0

Browse Source
This commit is contained in:
nilopaim
2023-07-14 12:15:30 -03:00
parent 110d8a0419
commit 945dd1a809
1466 changed files with 374820 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test_suite/compile_tests/README
+21
View File
@@ -0,0 +1,21 @@
The source code modules in this directory are intended
for checking the compiler's ability to parse the
source, rather than to check for the proper execution
of compiler output. The test script compiles the source
and checks the return code from the compiler. The
test.script file identifies which programs should
return 0 or return non-zero.
When adding tests to this directory, add an entry
into the test.script with the program base name
followed by a colon then T, F or W. A 'T' indi-
cates that the compiler should return a 0, a 'F'
indicates a non-zero failure code, and a 'W'
indicates that the compiler should return with
compiler warnings.
A sucessful test is a T that compiles clean, a F
that fails to compile, or a W that returns an
error status.
Glen
test_suite/compile_tests/ctest01.cob
View File
test_suite/compile_tests/ctest01a.cob
+21
View File
@@ -0,0 +1,21 @@
PROGRAM-ID. CTEST01_FEATURES.
AUTHOR. GLEN COLBERT.
INSTALLATION. Tiny Cobol Compiler Project.
DATE-WRITTEN. 11-21-1999.
DATE-COMPILED.
SECURITY. NONE.
* This program should not compile because
* it does not have an identification division
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
PROCEDURE DIVISION.
STOP RUN.
A000-EXIT.
EXIT.
test_suite/compile_tests/ctest01b.cob
+23
View File
@@ -0,0 +1,23 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTEST01_FEATURES.
AUTHOR. GLEN COLBERT.
INSTALLATION. Tiny Cobol Compiler Project.
DATE-WRITTEN. 11-21-1999.
DATE-COMPILED.
SECURITY. NONE.
* This program should not compile because
* it does not have an env div
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
PROCEDURE DIVISION.
STOP RUN.
A000-EXIT.
EXIT.
test_suite/compile_tests/ctest01c.cob
+19
View File
@@ -0,0 +1,19 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTEST01_FEATURES.
AUTHOR. GLEN COLBERT.
INSTALLATION. Tiny Cobol Compiler Project.
DATE-WRITTEN. 11-21-1999.
DATE-COMPILED.
SECURITY. NONE.
* This program will compile even if
* it does not have a DATA DIVISION
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
PROCEDURE DIVISION.
STOP RUN.
A000-EXIT.
EXIT.
test_suite/compile_tests/ctest01d.cob
+21
View File
@@ -0,0 +1,21 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTEST01_FEATURES.
AUTHOR. GLEN COLBERT.
INSTALLATION. Tiny Cobol Compiler Project.
DATE-WRITTEN. 11-21-1999.
DATE-COMPILED.
SECURITY. NONE.
* This program should not compile because
* it does not have a PROC DIV
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
STOP RUN.
A000-EXIT.
EXIT.
test_suite/compile_tests/ctest01e.cob
+22
View File
@@ -0,0 +1,22 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTEST01_FEATURES.
AUTHOR. GLEN COLBERT.
INSTALLATION. Tiny Cobol Compiler Project.
DATE-WRITTEN. 11-21-1999.
DATE-COMPILED.
SECURITY. NONE.
* Are reserved words in comment lines ignored?
* This should not be paresed DATA DIVISION
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
PROCEDURE DIVISION.
STOP RUN.
A000-EXIT.
EXIT.
test_suite/compile_tests/ctest02.cbl
View File
test_suite/compile_tests/ctest03.cob
+16
View File
@@ -0,0 +1,16 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTEST03.
* AUTHOR. GLEN COLBERT, David Essex.
* ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
* DATA DIVISION.
* FILE SECTION.
* WORKING-STORAGE SECTION.
PROCEDURE DIVISION.
* STOP RUN.
* A000-EXIT.
* EXIT.
test_suite/compile_tests/ctest04.cob
+22
View File
@@ -0,0 +1,22 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. TEST1_FORMATS.
AUTHOR. GLEN COLBERT.
INSTALLATION. FOOBAR WIDGETS 1999.
DATE-WRITTEN. 12 November, 1999.
DATE-COMPILED.
SECURITY.
* Note that the REMARKS clause is not part of the ANS COBOL 85 standard.
REMARKS.
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
PROCEDURE DIVISION.
STOP RUN.
A000-EXIT.
EXIT.
test_suite/compile_tests/ctest05.cob
+26
View File
@@ -0,0 +1,26 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. TEST5_STRUCTURE.
AUTHOR. GLEN COLBERT.
INSTALLATION. FOOBAR WIDGETS 1999.
DATE-WRITTEN. 12 November, 1999.
DATE-COMPILED.
SECURITY.
* Note that the REMARKS clause is not part of the ANS COBOL 85 standard.
REMARKS. CHECK TO SEE THAT THE REMARKS SECTION ALLOWS
MULTI-LINE EXPLANATIONS OF JUST WHAT THE CODE DOES AND
DOES NOT DO. THE COMPILER SHOULD IGNORE EVERYTHING FROM
THE REMARKS TOKEN TO THE NEXT RECOGNIZED SECTION OR
DIVISION HEADER.
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
PROCEDURE DIVISION.
STOP RUN.
A000-EXIT.
EXIT.
test_suite/compile_tests/ctest06.cob
+34
View File
@@ -0,0 +1,34 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. TEST5_STRUCTURE.
AUTHOR. GLEN COLBERT.
INSTALLATION. Tiny Cobol Compiler Project.
DATE-WRITTEN. 11-12-1999.
DATE-COMPILED.
SECURITY.
*REMARKS. VALIDATE COMPILE FOR MOVING FIGURATIVE CONSTANTS
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-ALPHANUMERICS.
05 WS-PICX-4 PIC X(4).
05 WS-PICX-6 PIC X(4).
01 WS-NUMERICS.
05 WS-PIC9-4 PIC X(9).
05 WS-PIC9-6 PIC X(9).
PROCEDURE DIVISION.
MOVE ALL "A" TO WS-PICX-4.
MOVE ALL ZEROES TO WS-PIC9-6.
MOVE HIGH-VALUES TO WS-PICX-4.
MOVE LOW-VALUES TO WS-PICX-4.
MOVE QUOTES TO WS-PICX-4.
STOP RUN.
A000-EXIT.
EXIT.
test_suite/compile_tests/ctested01.cob
+24
View File
@@ -0,0 +1,24 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTEST01_PARSE.
AUTHOR. GLEN COLBERT.
INSTALLATION. Tiny Cobol Compiler Project.
DATE-WRITTEN. 11-21-1999.
DATE-COMPILED.
SECURITY. NONE.
* Parser tests for the ENV DIV
* Does it recognize the section header?
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
PROCEDURE DIVISION.
STOP RUN.
A000-EXIT.
EXIT.
test_suite/compile_tests/ctested02.cob
+25
View File
@@ -0,0 +1,25 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTEST01_PARSE.
AUTHOR. GLEN COLBERT.
INSTALLATION. Tiny Cobol Compiler Project.
DATE-WRITTEN. 11-21-1999.
DATE-COMPILED.
SECURITY. NONE.
* Parser tests for the ENV DIV
* Does it recognize sourc cp?
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. Linux.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
PROCEDURE DIVISION.
STOP RUN.
A000-EXIT.
EXIT.
test_suite/compile_tests/ctested03.cob
+25
View File
@@ -0,0 +1,25 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTEST01_PARSE.
AUTHOR. GLEN COLBERT.
INSTALLATION. Tiny Cobol Compiler Project.
DATE-WRITTEN. 11-21-1999.
DATE-COMPILED.
SECURITY. NONE.
* Parser tests for the ENV DIV
* Does it recognize debg md?
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. Linux WITH DEBUGGING MODE.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
PROCEDURE DIVISION.
STOP RUN.
A000-EXIT.
EXIT.
test_suite/compile_tests/ctested04.cob
+26
View File
@@ -0,0 +1,26 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTEST01_PARSE.
AUTHOR. GLEN COLBERT.
INSTALLATION. Tiny Cobol Compiler Project.
DATE-WRITTEN. 11-21-1999.
DATE-COMPILED.
SECURITY. NONE.
* Parser tests for the ENV DIV
* Does it recognize obj cp?
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. Linux.
OBJECT-COMPUTER. Linux.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
PROCEDURE DIVISION.
STOP RUN.
A000-EXIT.
EXIT.
test_suite/compile_tests/ctested05.cob
+25
View File
@@ -0,0 +1,25 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTEST01_PARSER.
AUTHOR. GLEN COLBERT.
INSTALLATION. Tiny Cobol Compiler Project.
DATE-WRITTEN. 11-21-1999.
DATE-COMPILED.
SECURITY. NONE.
* test for curncy sgn
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
CURRENCY SIGN IS "$".
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
PROCEDURE DIVISION.
STOP RUN.
A000-EXIT.
EXIT.
test_suite/compile_tests/ctested06.cob
+25
View File
@@ -0,0 +1,25 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTEST01_PARSER.
AUTHOR. GLEN COLBERT.
INSTALLATION. Tiny Cobol Compiler Project.
DATE-WRITTEN. 11-21-1999.
DATE-COMPILED.
SECURITY. NONE.
* test for curncy sgn
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
PROCEDURE DIVISION.
STOP RUN.
A000-EXIT.
EXIT.
test_suite/compile_tests/ctestfc01.cob
+35
View File
@@ -0,0 +1,35 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTEST01_FC.
AUTHOR. GLEN COLBERT.
INSTALLATION. Tiny Cobol Compiler Project.
DATE-WRITTEN. 11-21-1999.
DATE-COMPILED.
SECURITY. NONE.
* Tests for f-c scans.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT FOOBAR ASSIGN TO "./foo.bar"
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL
FILE STATUS IS WS-FOOBAR-STAT.
DATA DIVISION.
FILE SECTION.
FD FOOBAR
LABEL RECORDS ARE STANDARD.
01 FOOBAR-REC.
05 WS-FOOBAR-KEY PIC 9(2).
05 WS-FOOBAR-DATA1 PIC X(8).
05 WS-FOOBAR-DATA2 PIC X(20).
WORKING-STORAGE SECTION.
01 WS-SWITCHES.
05 WS-FOOBAR-STAT PIC 9(2).
PROCEDURE DIVISION.
STOP RUN.
A000-EXIT.
EXIT.
test_suite/compile_tests/ctestfc02.cob
+35
View File
@@ -0,0 +1,35 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTEST01_FC.
AUTHOR. GLEN COLBERT.
INSTALLATION. Tiny Cobol Compiler Project.
DATE-WRITTEN. 11-21-1999.
DATE-COMPILED.
SECURITY. NONE.
* Tests for f-c scans.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT FOOBAR ASSIGN TO "./foo.bar"
ORGANIZATION IS LINE SEQUENTIAL
ACCESS MODE IS SEQUENTIAL
FILE STATUS IS WS-FOOBAR-STAT.
DATA DIVISION.
FILE SECTION.
FD FOOBAR
LABEL RECORDS ARE STANDARD.
01 FOOBAR-REC.
05 WS-FOOBAR-KEY PIC 9(2).
05 WS-FOOBAR-DATA1 PIC X(8).
05 WS-FOOBAR-DATA2 PIC X(20).
WORKING-STORAGE SECTION.
01 WS-SWITCHES.
05 WS-FOOBAR-STAT PIC 9(2).
PROCEDURE DIVISION.
STOP RUN.
A000-EXIT.
EXIT.
test_suite/compile_tests/ctestp-accept1.cob
+26
View File
@@ -0,0 +1,26 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTP_ACCEPT1.
AUTHOR. STEPHEN CONNOLLY.
INSTALLATION. Tiny Cobol Compiler Project.
SECURITY. NONE.
* TEST ACCEPT FROM DATE VERB FORMAT.
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-VARIABLES.
05 WS-DATA PIC X(6).
05 WS-INT1 PIC S9(4) COMP VALUE 4 .
05 WS-INT2 PIC S9(4) COMP VALUE 5 .
05 WS-INT3 PIC S9(9) COMP.
PROCEDURE DIVISION.
000-MAIN.
ACCEPT WS-DATA FROM DATE.
DISPLAY WS-DATA.
STOP RUN.
test_suite/compile_tests/ctestp-accept2.cob
+26
View File
@@ -0,0 +1,26 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTP_ACCEPT2.
AUTHOR. STEPHEN CONNOLLY.
INSTALLATION. Tiny Cobol Compiler Project.
SECURITY. NONE.
* TEST ACCEPT FROM TIME VERB FORMAT.
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-VARIABLES.
05 WS-DATA PIC X(6).
05 WS-INT1 PIC S9(4) COMP VALUE 4 .
05 WS-INT2 PIC S9(4) COMP VALUE 5 .
05 WS-INT3 PIC S9(9) COMP.
PROCEDURE DIVISION.
000-MAIN.
ACCEPT WS-DATA FROM TIME.
DISPLAY WS-DATA.
STOP RUN.
test_suite/compile_tests/ctestp-add1.cob
+31
View File
@@ -0,0 +1,31 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTP_ADD1.
AUTHOR. STEPHEN CONNOLLY.
INSTALLATION. Tiny Cobol Compiler Project.
SECURITY. NONE.
* TEST ADD VERB FORMAT 1.
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-VARIABLES.
05 WS-DATA PIC X(5).
05 WS-INT1 PIC S9(4) COMP VALUE 4 .
05 WS-INT2 PIC S9(4) COMP VALUE 5 .
05 WS-INT3 PIC S9(9) COMP.
PROCEDURE DIVISION.
000-MAIN.
ADD WS-INT1 TO WS-INT2 ROUNDED
ON SIZE ERROR
MOVE "FAIL" TO WS-DATA
NOT ON SIZE ERROR
MOVE "PASS" TO WS-DATA
END-ADD.
DISPLAY WS-DATA.
STOP RUN.
test_suite/compile_tests/ctestp-add2.cob
+32
View File
@@ -0,0 +1,32 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTP_ADD2.
AUTHOR. STEPHEN CONNOLLY.
INSTALLATION. Tiny Cobol Compiler Project.
SECURITY. NONE.
* TEST ADD VERB FORMAT 2.
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-VARIABLES.
05 WS-DATA PIC X(5).
05 WS-INT1 PIC S9(4) COMP VALUE 4 .
05 WS-INT2 PIC S9(4) COMP VALUE 5 .
05 WS-INT3 PIC S9(9) COMP.
PROCEDURE DIVISION.
000-MAIN.
ADD WS-INT1 TO WS-INT2
GIVING WS-INT3 ROUNDED
ON SIZE ERROR
MOVE "FAIL" TO WS-DATA
NOT ON SIZE ERROR
MOVE "PASS" TO WS-DATA
END-ADD.
DISPLAY WS-DATA.
STOP RUN.
test_suite/compile_tests/ctestp-add3.cob
+42
View File
@@ -0,0 +1,42 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTP_ADD3.
AUTHOR. STEPHEN CONNOLLY.
INSTALLATION. Tiny Cobol Compiler Project.
SECURITY. NONE.
* TEST ADD VERB FORMAT 3.
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-VARIABLES.
05 WS-DATA PIC X(5).
05 WS-INT1 PIC S9(4) COMP VALUE 4 .
05 WS-INT2 PIC S9(4) COMP VALUE 5 .
05 WS-INT3 PIC S9(9) COMP.
01 WS-VARIABLE2.
05 WS-INT1 PIC S9(4) COMP VALUE 4 .
05 WS-INT2 PIC S9(4) COMP VALUE 5 .
PROCEDURE DIVISION.
000-MAIN.
ADD CORRESPONDING WS-INT1 of WS-VARIABLES TO WS-INT2 of WS-VARIABLES ROUNDED
ON SIZE ERROR
MOVE "FAIL" TO WS-DATA of WS-VARIABLES
NOT ON SIZE ERROR
MOVE "PASS" TO WS-DATA OF WS-VARIABLES
END-ADD.
DISPLAY WS-DATA OF WS-VARIABLES.
ADD CORR WS-INT1 OF WS-VARIABLES TO WS-INT2 OF WS-VARIABLES ROUNDED
ON SIZE ERROR
MOVE "FAIL" TO WS-DATA OF WS-VARIABLES
NOT ON SIZE ERROR
MOVE "PASS" TO WS-DATA of WS-VARIABLES
END-ADD.
DISPLAY WS-DATA of WS-VARIABLES.
STOP RUN.
test_suite/compile_tests/ctestp-close1.cob
+34
View File
@@ -0,0 +1,34 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTP_CLOSE1.
ENVIRONMENT DIVISION.
* TEST CLOSE WITH LOCK VERB FORMAT
CONFIGURATION SECTION.
SPECIAL-NAMES.
DECIMAL-POINT IS COMMA.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT GOZOUT ASSIGN TO "./input.dat"
ORGANIZATION IS SEQUENTIAL
ACCESS IS SEQUENTIAL
FILE STATUS IS FS.
DATA DIVISION.
FILE SECTION.
FD GOZOUT
LABEL RECORD IS STANDARD.
01 GOZOUT-REC.
03 X-IND PIC 9(03).
03 DESCRIPTION PIC X(20).
03 FILLER PIC X(57).
WORKING-STORAGE SECTION.
01 FS PIC 9(02).
01 WS-COUNTERS.
05 WS-TEST-COUNTER PIC 9(4).
PROCEDURE DIVISION.
000-MAIN.
OPEN OUTPUT GOZOUT.
CLOSE GOZOUT WITH LOCK.
STOP RUN.
test_suite/compile_tests/ctestp-compute1.cob
+31
View File
@@ -0,0 +1,31 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTP_COMPUTE1.
AUTHOR. STEPHEN CONNOLLY.
INSTALLATION. Tiny Cobol Compiler Project.
SECURITY. NONE.
* TEST COMPUTE VERB.
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-VARIABLES.
05 WS-DATA PIC X(5).
05 WS-INT1 PIC S9(4) COMP VALUE 4 .
05 WS-INT2 PIC S9(4) COMP VALUE 5 .
05 WS-INT3 PIC S9(9) COMP.
PROCEDURE DIVISION.
000-MAIN.
COMPUTE WS-INT3 ROUNDED = WS-INT1 + WS-INT2
ON SIZE ERROR
MOVE "FAIL" TO WS-DATA
* NOT ON SIZE ERROR
* MOVE "PASS" TO WS-DATA
END-COMPUTE.
DISPLAY WS-DATA.
STOP RUN.
test_suite/compile_tests/ctestp-continue1.cob
+31
View File
@@ -0,0 +1,31 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTP_CONTINUE1.
AUTHOR. STEPHEN CONNOLLY.
INSTALLATION. Tiny Cobol Compiler Project.
SECURITY. NONE.
* TEST CONTINUE VERB.
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-VARIABLES.
05 WS-DATA PIC X(5).
05 WS-INT1 PIC S9(4) COMP VALUE 4 .
05 WS-INT2 PIC S9(4) COMP VALUE 5 .
05 WS-INT3 PIC S9(9) COMP.
PROCEDURE DIVISION.
000-MAIN.
MOVE "PASS" TO WS-DATA.
IF WS-INT1 > 0
CONTINUE
ELSE
MOVE "FAIL" TO WS-DATA
END-IF.
DISPLAY WS-DATA.
STOP RUN.
test_suite/compile_tests/ctestp-delete1.cob
+37
View File
@@ -0,0 +1,37 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTP_DELETE1.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT ARQ ASSIGN TO "Testing.dat"
ORGANIZATION IS INDEXED
ACCESS MODE IS RANDOM
RECORD KEY IS X-IND
FILE STATUS IS FS.
DATA DIVISION.
FILE SECTION.
FD ARQ
LABEL RECORD IS STANDARD.
01 REG-ARQ.
03 X-IND PIC 9(03).
03 DESCRIPTION PIC X(60).
WORKING-STORAGE SECTION.
01 FS PIC 9(02).
01 ARQ-KEY PIC 9(03).
PROCEDURE DIVISION.
000-MAIN.
OPEN I-O ARQ.
READ ARQ.
DELETE ARQ RECORD
INVALID KEY
MOVE "FAIL" TO DESCRIPTION
NOT INVALID KEY
MOVE "PASS" TO DESCRIPTION
END-DELETE.
CLOSE ARQ.
test_suite/compile_tests/ctestp-divide1.cob
+31
View File
@@ -0,0 +1,31 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTP_DIVIDE1.
AUTHOR. STEPHEN CONNOLLY.
INSTALLATION. Tiny Cobol Compiler Project.
SECURITY. NONE.
* TEST DIVIDE VERB FORMAT 1.
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-VARIABLES.
05 WS-DATA PIC X(5).
05 WS-INT1 PIC S9(4) COMP VALUE 4 .
05 WS-INT2 PIC S9(4) COMP VALUE 5 .
05 WS-INT3 PIC S9(9) COMP.
PROCEDURE DIVISION.
000-MAIN.
DIVIDE WS-INT1 INTO WS-INT2 ROUNDED
ON SIZE ERROR
MOVE "FAIL" TO WS-DATA
* NOT ON SIZE ERROR
* MOVE "PASS" TO WS-DATA
END-DIVIDE.
DISPLAY WS-DATA.
STOP RUN.
test_suite/compile_tests/ctestp-divide2.cob
+32
View File
@@ -0,0 +1,32 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTP_DIVIDE2.
AUTHOR. STEPHEN CONNOLLY.
INSTALLATION. Tiny Cobol Compiler Project.
SECURITY. NONE.
* TEST DIVIDE VERB FORMAT 2.
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-VARIABLES.
05 WS-DATA PIC X(5).
05 WS-INT1 PIC S9(4) COMP VALUE 4 .
05 WS-INT2 PIC S9(4) COMP VALUE 5 .
05 WS-INT3 PIC S9(9) COMP.
PROCEDURE DIVISION.
000-MAIN.
DIVIDE WS-INT1 INTO WS-INT2
GIVING WS-INT3 ROUNDED
ON SIZE ERROR
MOVE "FAIL" TO WS-DATA
* NOT ON SIZE ERROR
* MOVE "PASS" TO WS-DATA
END-DIVIDE.
DISPLAY WS-DATA.
STOP RUN.
test_suite/compile_tests/ctestp-divide3.cob
+32
View File
@@ -0,0 +1,32 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTP_DIVIDE3.
AUTHOR. STEPHEN CONNOLLY.
INSTALLATION. Tiny Cobol Compiler Project.
SECURITY. NONE.
* TEST DIVIDE VERB FORMAT 3.
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-VARIABLES.
05 WS-DATA PIC X(5).
05 WS-INT1 PIC S9(4) COMP VALUE 4 .
05 WS-INT2 PIC S9(4) COMP VALUE 5 .
05 WS-INT3 PIC S9(9) COMP.
PROCEDURE DIVISION.
000-MAIN.
DIVIDE WS-INT1 BY WS-INT2
GIVING WS-INT3 ROUNDED
ON SIZE ERROR
MOVE "FAIL" TO WS-DATA
* NOT ON SIZE ERROR
* MOVE "PASS" TO WS-DATA
END-DIVIDE.
DISPLAY WS-DATA.
STOP RUN.
test_suite/compile_tests/ctestp-divide4.cob
+34
View File
@@ -0,0 +1,34 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTP_DIVIDE4.
AUTHOR. STEPHEN CONNOLLY.
INSTALLATION. Tiny Cobol Compiler Project.
SECURITY. NONE.
* TEST DIVIDE VERB FORMAT 4.
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-VARIABLES.
05 WS-DATA PIC X(5).
05 WS-INT1 PIC S9(4) COMP VALUE 4 .
05 WS-INT2 PIC S9(4) COMP VALUE 5 .
05 WS-INT3 PIC S9(9) COMP.
05 WS-INT4 PIC S9(9) COMP.
PROCEDURE DIVISION.
000-MAIN.
DIVIDE WS-INT1 INTO WS-INT2
GIVING WS-INT3 ROUNDED
REMAINDER WS-INT4
ON SIZE ERROR
MOVE "FAIL" TO WS-DATA
* NOT ON SIZE ERROR
* MOVE "PASS" TO WS-DATA
END-DIVIDE.
DISPLAY WS-DATA.
STOP RUN.
test_suite/compile_tests/ctestp-divide5.cob
+34
View File
@@ -0,0 +1,34 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTP_DIVIDE5.
AUTHOR. STEPHEN CONNOLLY.
INSTALLATION. Tiny Cobol Compiler Project.
SECURITY. NONE.
* TEST DIVIDE VERB FORMAT 5.
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-VARIABLES.
05 WS-DATA PIC X(5).
05 WS-INT1 PIC S9(4) COMP VALUE 4 .
05 WS-INT2 PIC S9(4) COMP VALUE 5 .
05 WS-INT3 PIC S9(9) COMP.
05 WS-INT4 PIC S9(9) COMP.
PROCEDURE DIVISION.
000-MAIN.
DIVIDE WS-INT1 BY WS-INT2
GIVING WS-INT3 ROUNDED
REMAINDER WS-INT4
ON SIZE ERROR
MOVE "FAIL" TO WS-DATA
NOT ON SIZE ERROR
MOVE "PASS" TO WS-DATA
END-DIVIDE.
DISPLAY WS-DATA.
STOP RUN.
test_suite/compile_tests/ctestp-goto1.cob
+37
View File
@@ -0,0 +1,37 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTP_GOTO1.
AUTHOR. STEPHEN CONNOLLY.
INSTALLATION. Tiny Cobol Compiler Project.
SECURITY. NONE.
* TEST GO TO DEPENDING ON VERB FORMAT.
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-VARIABLES.
05 WS-DATA PIC X(5).
05 WS-INT0 PIC 999 VALUE 4 .
05 WS-INT1 PIC S9(4) COMP VALUE 4 .
05 WS-INT2 PIC S9(4) COMP VALUE 5 .
05 WS-INT3 PIC S9(9) COMP.
PROCEDURE DIVISION.
000-MAIN.
GO TO A1, A2 A3 DEPENDING ON WS-INT0.
DISPLAY "FAIL"
GO TO A4.
A1.
DISPLAY "PASS A1"
GO TO A4.
A2.
DISPLAY "PASS A2"
GO TO A4.
A3.
DISPLAY "PASS A3".
A4.
STOP RUN.
test_suite/compile_tests/ctestp-initialize1.cob
+31
View File
@@ -0,0 +1,31 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTP_INITIALIZE1.
AUTHOR. STEPHEN CONNOLLY.
INSTALLATION. Tiny Cobol Compiler Project.
SECURITY. NONE.
* TEST INITIALIZE VERB FULL FORMAT.
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-VARIABLES.
05 WS-DATA PIC X(5).
05 WS-INT1 PIC S9(4) COMP VALUE 4 .
05 WS-INT2 PIC S9(4) COMP VALUE 5 .
05 WS-INT3 PIC S9(9) COMP.
05 WS-INT4 PIC S9(9) COMP.
PROCEDURE DIVISION.
000-MAIN.
INITIALIZE WS-VARIABLES
REPLACING ALPHABETIC DATA BY "A"
ALPHANUMERIC DATA BY "0"
NUMERIC DATA BY ZEROES
ALPHANUMERIC-EDITED DATA BY SPACES
NUMERIC-EDITED BY ZEROES.
STOP RUN.
test_suite/compile_tests/ctestp-multiply1.cob
+31
View File
@@ -0,0 +1,31 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTP_MULTIPLY1.
AUTHOR. STEPHEN CONNOLLY.
INSTALLATION. Tiny Cobol Compiler Project.
SECURITY. NONE.
* TEST MULTIPLY VERB FORMAT 1.
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-VARIABLES.
05 WS-DATA PIC X(5).
05 WS-INT1 PIC S9(4) COMP VALUE 4 .
05 WS-INT2 PIC S9(4) COMP VALUE 5 .
05 WS-INT3 PIC S9(9) COMP.
PROCEDURE DIVISION.
000-MAIN.
MULTIPLY WS-INT1 BY WS-INT2 ROUNDED
ON SIZE ERROR
MOVE "FAIL" TO WS-DATA
NOT ON SIZE ERROR
MOVE "PASS" TO WS-DATA
END-MULTIPLY.
DISPLAY WS-DATA.
STOP RUN.
test_suite/compile_tests/ctestp-multiply2.cob
+32
View File
@@ -0,0 +1,32 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTP_MULTIPLY2.
AUTHOR. STEPHEN CONNOLLY.
INSTALLATION. Tiny Cobol Compiler Project.
SECURITY. NONE.
* TEST MULTIPLY VERB FORMAT 2.
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-VARIABLES.
05 WS-DATA PIC X(5).
05 WS-INT1 PIC S9(4) COMP VALUE 4 .
05 WS-INT2 PIC S9(4) COMP VALUE 5 .
05 WS-INT3 PIC S9(9) COMP.
PROCEDURE DIVISION.
000-MAIN.
MULTIPLY WS-INT1 BY WS-INT2
GIVING WS-INT3 ROUNDED
ON SIZE ERROR
MOVE "FAIL" TO WS-DATA
* NOT ON SIZE ERROR
* MOVE "PASS" TO WS-DATA
END-MULTIPLY.
DISPLAY WS-DATA.
STOP RUN.
test_suite/compile_tests/ctestp-open1.cob
+38
View File
@@ -0,0 +1,38 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTP_OPEN1.
AUTHOR. STEPHEN CONNOLLY.
INSTALLATION. Tiny Cobol Compiler Project.
DATE-WRITTEN. 11-21-1999.
DATE-COMPILED.
SECURITY. NONE.
* TEST OPEN VERB FULL FORMAT.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT FOOBAR ASSIGN TO "./foo.bar"
ORGANIZATION IS LINE SEQUENTIAL
ACCESS MODE IS SEQUENTIAL
FILE STATUS IS WS-FS1.
DATA DIVISION.
FILE SECTION.
FD FOOBAR
LABEL RECORDS ARE STANDARD.
01 FOOBAR-REC.
05 WS-FOOBAR-KEY PIC 9(2).
05 WS-FOOBAR-DATA1 PIC X(8).
05 WS-FOOBAR-DATA2 PIC X(20).
WORKING-STORAGE SECTION.
01 WS-SWITCHES.
05 WS-FS1 PIC 9(2).
PROCEDURE DIVISION.
000-MAIN.
OPEN INPUT FOOBAR
OUTPUT FOOBAR
I-O FOOBAR
EXTEND FOOBAR
.
STOP RUN.
test_suite/compile_tests/ctestp-read1.cob
+43
View File
@@ -0,0 +1,43 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTP_READ1.
ENVIRONMENT DIVISION.
* TEST READ VERB FORMAT 1 (SEQUENTIAL).
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT GOZOUT
ASSIGN TO "./input.dat"
ORGANIZATION IS SEQUENTIAL
ACCESS IS SEQUENTIAL
FILE STATUS IS FS.
DATA DIVISION.
FILE SECTION.
FD GOZOUT
LABEL RECORD IS STANDARD.
01 GOZOUT-REC.
03 X-IND PIC 9(03).
03 DESCRIPTION PIC X(20).
03 FILLER PIC X(57).
WORKING-STORAGE SECTION.
01 FS PIC 9(02).
01 WS-COUNTERS.
05 WS-TEST-COUNTER PIC 9(4).
01 WS-DATA PIC X(80).
01 WS-NAME PIC X(80).
PROCEDURE DIVISION.
0000-MAIN.
MOVE "./INPUT.DAT" TO WS-NAME.
OPEN OUTPUT GOZOUT.
READ GOZOUT NEXT RECORD INTO WS-DATA
AT END
MOVE "FAIL" TO DESCRIPTION
* NOT AT END
* MOVE "PASS" TO DESCRIPTION
END-READ.
CLOSE GOZOUT.
STOP RUN.
test_suite/compile_tests/ctestp-read2.cob
+45
View File
@@ -0,0 +1,45 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTP_READ2.
ENVIRONMENT DIVISION.
* TEST READ VERB FORMAT 2 (RELATIVE).
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT GOZOUT
ASSIGN TO "FILLER "
ORGANIZATION IS RELATIVE
ACCESS IS RANDOM
RELATIVE KEY IS WS-RECORD-NO
FILE STATUS IS FS.
DATA DIVISION.
FILE SECTION.
FD GOZOUT
LABEL RECORD IS STANDARD.
01 GOZOUT-REC.
03 X-IND PIC 9(03).
03 DESCRIPTION PIC X(20).
03 FILLER PIC X(57).
WORKING-STORAGE SECTION.
01 FS PIC 9(02).
01 WS-COUNTERS.
05 WS-TEST-COUNTER PIC 9(4).
01 WS-DATA PIC X(80).
01 WS-NAME PIC X(80) VALUE "./input.dat" .
01 WS-RECORD-NO PIC 9(9) COMP VALUE 0 .
PROCEDURE DIVISION.
0000-MAIN.
OPEN OUTPUT GOZOUT.
MOVE 1001 TO WS-RECORD-NO
READ GOZOUT NEXT RECORD INTO WS-DATA
INVALID KEY
MOVE "FAIL" TO DESCRIPTION
* NOT INVALID KEY
* MOVE "PASS" TO DESCRIPTION
END-READ.
CLOSE GOZOUT.
STOP RUN.
test_suite/compile_tests/ctestp-read3.cob
+45
View File
@@ -0,0 +1,45 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTP_READ3.
ENVIRONMENT DIVISION.
* TEST READ VERB FORMAT 3 (RANDOM).
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT GOZOUT
ASSIGN TO "FILLER "
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS RANDOM
RELATIVE KEY IS X-IND
FILE STATUS IS FS.
DATA DIVISION.
FILE SECTION.
FD GOZOUT
LABEL RECORD IS STANDARD.
01 GOZOUT-REC.
03 X-IND PIC 9(03).
03 DESCRIPTION PIC X(20).
03 FILLER PIC X(57).
WORKING-STORAGE SECTION.
01 FS PIC 9(02).
01 WS-COUNTERS.
05 WS-TEST-COUNTER PIC 9(4).
01 WS-DATA PIC X(80).
01 WS-NAME PIC X(80) VALUE "./input.dat" .
01 WS-RECORD-NO PIC 9(9) COMP VALUE 0 .
PROCEDURE DIVISION.
0000-MAIN.
OPEN INPUT GOZOUT.
MOVE 101 TO X-IND
READ GOZOUT RECORD INTO WS-DATA
INVALID KEY
MOVE "FAIL" TO DESCRIPTION
* NOT INVALID KEY
* MOVE "PASS" TO DESCRIPTION
END-READ.
CLOSE GOZOUT.
STOP RUN.
test_suite/compile_tests/ctestp-read4.cob
+46
View File
@@ -0,0 +1,46 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTP_READ4.
ENVIRONMENT DIVISION.
* TEST READ VERB FORMAT 4 (INDEXED).
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT GOZOUT
ASSIGN TO "FILLER "
ORGANIZATION IS INDEXED
ACCESS IS DYNAMIC
RECORD KEY IS X-IND
FILE STATUS IS FS.
DATA DIVISION.
FILE SECTION.
FD GOZOUT
LABEL RECORD IS STANDARD.
01 GOZOUT-REC.
03 X-IND PIC 9(03).
03 DESCRIPTION PIC X(20).
03 FILLER PIC X(57).
WORKING-STORAGE SECTION.
01 FS PIC 9(02).
01 WS-COUNTERS.
05 WS-TEST-COUNTER PIC 9(4).
01 WS-DATA PIC X(80).
01 WS-NAME PIC X(80) VALUE "./input.dat" .
01 WS-RECORD-NO PIC 9(9) COMP VALUE 0 .
PROCEDURE DIVISION.
0000-MAIN.
OPEN OUTPUT GOZOUT.
MOVE 101 TO X-IND
READ GOZOUT RECORD INTO WS-DATA
KEY IS X-IND
INVALID KEY
MOVE "FAIL" TO DESCRIPTION
* NOT INVALID KEY
* MOVE "PASS" TO DESCRIPTION
END-READ.
CLOSE GOZOUT.
STOP RUN.
test_suite/compile_tests/ctestp-rewrite1.cob
+39
View File
@@ -0,0 +1,39 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTP_REWRITE1.
ENVIRONMENT DIVISION.
* TEST REWRITE VERB FORMAT 1 (SEQUENTIAL).
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT OPTIONAL GOZOUT
ASSIGN TO "./input.dat" USING WS-NAME
ORGANIZATION IS SEQUENTIAL
ACCESS IS SEQUENTIAL
FILE STATUS IS FS.
DATA DIVISION.
FILE SECTION.
FD GOZOUT
LABEL RECORD IS STANDARD.
01 GOZOUT-REC.
03 X-IND PIC 9(03).
03 DESCRIPTION PIC X(20).
03 FILLER PIC X(57).
WORKING-STORAGE SECTION.
01 FS PIC 9(02).
01 WS-COUNTERS.
05 WS-TEST-COUNTER PIC 9(4).
01 WS-DATA PIC X(80).
01 WS-NAME PIC X(80).
PROCEDURE DIVISION.
0000-MAIN.
OPEN OUTPUT GOZOUT.
REWRITE GOZOUT
FROM WS-DATA
END-REWRITE.
CLOSE GOZOUT.
STOP RUN.
test_suite/compile_tests/ctestp-rewrite2.cob
+45
View File
@@ -0,0 +1,45 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTP_REWRITE2.
ENVIRONMENT DIVISION.
* TEST REWRITE VERB FORMAT 2 (INDEXED).
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT OPTIONAL GOZOUT
ASSIGN TO "FILLER " USING WS-NAME
ORGANIZATION IS INDEXED
ACCESS IS DYNAMIC
RECORD KEY IS X-IND WITH DUPLICATES
ALTERNATE RECORD KEY IS DESCRIPTION
WITH DUPLICATES
FILE STATUS IS FS.
DATA DIVISION.
FILE SECTION.
FD GOZOUT
LABEL RECORD IS STANDARD.
01 GOZOUT-REC.
03 X-IND PIC 9(03).
03 DESCRIPTION PIC X(20).
03 FILLER PIC X(57).
WORKING-STORAGE SECTION.
01 FS PIC 9(02).
01 WS-COUNTERS.
05 WS-TEST-COUNTER PIC 9(4).
01 WS-DATA PIC X(80).
01 WS-NAME PIC X(80) VALUE "./input.dat" .
01 WS-RECORD-NO PIC 9(9) COMP VALUE 0 .
PROCEDURE DIVISION.
0000-MAIN.
OPEN OUTPUT GOZOUT.
MOVE 101 TO X-IND
REWRITE GOZOUT FROM WS-DATA
INVALID KEY
MOVE "FAIL" TO DESCRIPTION
END-REWRITE.
CLOSE GOZOUT.
STOP RUN.
test_suite/compile_tests/ctestp-search1.cob
+27
View File
@@ -0,0 +1,27 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTP_SEARCH1.
ENVIRONMENT DIVISION.
* TEST SEARCH VERB FORMAT 1.
CONFIGURATION SECTION.
* INPUT-OUTPUT SECTION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-XX PIC XX.
01 WS-TABLE1.
05 TB1-ENTRY OCCURS 20 TIMES
INDEXED BY TB1-IDX.
10 TB1-VALUE PIC X(2).
PROCEDURE DIVISION.
0000-MAIN.
SET TB1-IDX TO 1.
MOVE "JJ" TO WS-XX.
SEARCH TB1-ENTRY VARYING TB1-IDX
AT END
DISPLAY "FAIL"
WHEN TB1-VALUE(TB1-IDX) = WS-XX
DISPLAY "PASS"
END-SEARCH.
STOP RUN.
test_suite/compile_tests/ctestp-search2.cob
+30
View File
@@ -0,0 +1,30 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTP_SEARCH2.
ENVIRONMENT DIVISION.
* TEST SEARCH VERB FORMAT 2.
CONFIGURATION SECTION.
* INPUT-OUTPUT SECTION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 TABLE-AREA PIC X(40) VALUE
"AABBCCDDEEFFGGHHIIJJKKLLMMNNOOPPQQRRSSTT".
01 TABLE1 REDEFINES TABLE-AREA.
05 TB1-ENTRY OCCURS 20 TIMES
ASCENDING KEY IS TB1-VALUE
INDEXED BY TB1-IDX
.
10 TB1-VALUE PIC X(2).
01 WS-XX PIC XX.
PROCEDURE DIVISION.
0000-MAIN.
MOVE "JJ" TO WS-XX.
SEARCH ALL TB1-ENTRY
AT END
DISPLAY "FAIL"
WHEN TB1-VALUE(TB1-IDX) = WS-XX
DISPLAY "PASS"
END-SEARCH.
STOP RUN.
test_suite/compile_tests/ctestp-set1.cob
+36
View File
@@ -0,0 +1,36 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTP_SET1.
ENVIRONMENT DIVISION.
* TEST SET VERB ALL FORMATS .
CONFIGURATION SECTION.
* SPECIAL-NAMES.
* SW0 IS SORT-SWITCH
* ON STATUS IS SORT-ON
* OFF STATUS IS SORT-OFF.
* INPUT-OUTPUT SECTION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 TABLE-AREA PIC X(40) VALUE
"AABBCCDDEEFFGGHHIIJJKKLLMMNNOOPPQQRRSSTT".
01 TABLE1 REDEFINES TABLE-AREA.
05 TB1-ENTRY OCCURS 20 TIMES
INDEXED BY TB1-IDX.
10 TB1-VALUE PIC X(2).
01 WS-XX PIC XX.
88 VALID-DATA VALUE "JJ".
01 WS-INT PIC S9(4) COMP VALUE 10 .
PROCEDURE DIVISION.
0000-MAIN.
SET TB1-IDX TO 1.
SET TB1-IDX UP BY WS-INT.
SET TB1-IDX DOWN BY WS-INT.
* SET SORT-SWITCH TO ON.
MOVE "AA" TO WS-XX.
SET VALID-DATA TO TRUE.
STOP RUN.
test_suite/compile_tests/ctestp-start1.cob
+45
View File
@@ -0,0 +1,45 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTP_START1.
ENVIRONMENT DIVISION.
* TEST START VERB FORMAT.
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT GOZOUT
ASSIGN TO "FILLER "
ORGANIZATION IS INDEXED
ACCESS IS DYNAMIC
RECORD KEY IS X-IND
FILE STATUS IS FS.
DATA DIVISION.
FILE SECTION.
FD GOZOUT
LABEL RECORD IS STANDARD.
01 GOZOUT-REC.
03 X-IND PIC 9(03).
03 DESCRIPTION PIC X(20).
03 FILLER PIC X(57).
WORKING-STORAGE SECTION.
01 FS PIC 9(02).
01 WS-COUNTERS.
05 WS-TEST-COUNTER PIC 9(4).
01 WS-DATA PIC X(80).
01 WS-NAME PIC X(80) VALUE "./input.dat" .
01 WS-RECORD-NO PIC 9(9) COMP VALUE 0 .
PROCEDURE DIVISION.
0000-MAIN.
OPEN OUTPUT GOZOUT.
MOVE 101 TO X-IND
START GOZOUT KEY IS EQUAL TO WS-RECORD-NO
INVALID KEY
MOVE "FAIL" TO DESCRIPTION
* NOT INVALID KEY
* MOVE "PASS" TO DESCRIPTION
END-START.
CLOSE GOZOUT.
STOP RUN.
test_suite/compile_tests/ctestp-string1.cob
+23
View File
@@ -0,0 +1,23 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTP_STRING1.
ENVIRONMENT DIVISION.
* TEST STRING VERB .
CONFIGURATION SECTION.
* INPUT-OUTPUT SECTION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 TABLE-AREA PIC X(40) VALUE SPACES.
01 WS-XX PIC XX VALUE "AA".
01 WS-POINTER PIC S9(4) COMP.
PROCEDURE DIVISION.
0000-MAIN.
STRING WS-XX DELIMITED BY SIZE
INTO TABLE-AREA
WITH POINTER WS-POINTER
ON OVERFLOW
DISPLAY "FAIL"
END-STRING.
STOP RUN.
test_suite/compile_tests/ctestp-subtract1.cob
+31
View File
@@ -0,0 +1,31 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTP_SUBTRACT1.
AUTHOR. STEPHEN CONNOLLY.
INSTALLATION. Tiny Cobol Compiler Project.
SECURITY. NONE.
* TEST SUBTRACT VERB FORMAT 1.
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-VARIABLES.
05 WS-DATA PIC X(5).
05 WS-INT1 PIC S9(4) COMP VALUE 4 .
05 WS-INT2 PIC S9(4) COMP VALUE 5 .
05 WS-INT3 PIC S9(9) COMP.
PROCEDURE DIVISION.
000-MAIN.
SUBTRACT WS-INT1 FROM WS-INT2 ROUNDED
ON SIZE ERROR
MOVE "FAIL" TO WS-DATA
* NOT ON SIZE ERROR
* MOVE "PASS" TO WS-DATA
END-SUBTRACT.
DISPLAY WS-DATA.
STOP RUN.
test_suite/compile_tests/ctestp-subtract2.cob
+32
View File
@@ -0,0 +1,32 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTP_SUBTRACT2.
AUTHOR. STEPHEN CONNOLLY.
INSTALLATION. Tiny Cobol Compiler Project.
SECURITY. NONE.
* TEST SUBTRACT VERB FORMAT 2.
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-VARIABLES.
05 WS-DATA PIC X(5).
05 WS-INT1 PIC S9(4) COMP VALUE 4 .
05 WS-INT2 PIC S9(4) COMP VALUE 5 .
05 WS-INT3 PIC S9(9) COMP.
PROCEDURE DIVISION.
000-MAIN.
SUBTRACT WS-INT1 FROM WS-INT2
GIVING WS-INT3 ROUNDED
ON SIZE ERROR
MOVE "FAIL" TO WS-DATA
* NOT ON SIZE ERROR
* MOVE "PASS" TO WS-DATA
END-SUBTRACT.
DISPLAY WS-DATA.
STOP RUN.
test_suite/compile_tests/ctestp-subtract3.cob
+42
View File
@@ -0,0 +1,42 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTP_SUBTRACT3.
AUTHOR. STEPHEN CONNOLLY.
INSTALLATION. Tiny Cobol Compiler Project.
SECURITY. NONE.
* TEST SUBTRACT VERB FORMAT 3.
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-VARIABLES.
05 WS-DATA PIC X(5).
05 WS-INT1 PIC S9(4) COMP VALUE 4 .
05 WS-INT2 PIC S9(4) COMP VALUE 5 .
05 WS-INT3 PIC S9(9) COMP.
01 WS-VARIABLE2.
05 WS-INT1 PIC S9(4) COMP VALUE 4 .
05 WS-INT2 PIC S9(4) COMP VALUE 5 .
PROCEDURE DIVISION.
000-MAIN.
SUBTRACT CORRESPONDING WS-INT1 of WS-VARIABLES FROM WS-INT2 of WS-VARIABLES ROUNDED
ON SIZE ERROR
MOVE "FAIL" TO WS-DATA of WS-VARIABLES
NOT ON SIZE ERROR
MOVE "PASS" TO WS-DATA of WS-VARIABLES
END-SUBTRACT.
DISPLAY WS-DATA of WS-VARIABLES.
SUBTRACT CORR WS-INT1 of WS-VARIABLES FROM WS-INT2 of WS-VARIABLES ROUNDED
ON SIZE ERROR
MOVE "FAIL" TO WS-DATA of WS-VARIABLES
* NOT ON SIZE ERROR
* MOVE "PASS" TO WS-DATA
END-SUBTRACT.
DISPLAY WS-DATA of WS-VARIABLES.
STOP RUN.
test_suite/compile_tests/ctestp-unstring1.cob
+31
View File
@@ -0,0 +1,31 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTP_UNSTRING1.
ENVIRONMENT DIVISION.
* TEST UNSTRING VERB .
CONFIGURATION SECTION.
* INPUT-OUTPUT SECTION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 TABLE-AREA PIC X(40) VALUE "12 43 56".
01 WS-XX1 PIC XX VALUE SPACES.
01 WS-XX2 PIC XX VALUE SPACES.
01 WS-POINTER PIC S9(4) COMP.
01 WS-COUNT PIC S9(4) COMP.
01 WS-TALLY PIC S9(4) COMP.
PROCEDURE DIVISION.
0000-MAIN.
UNSTRING TABLE-AREA
DELIMITED BY
ALL SPACES OR ALL ","
INTO WS-XX1
DELIMITER IN WS-XX2
COUNT IN WS-COUNT
WITH POINTER WS-POINTER
TALLYING IN WS-TALLY
ON OVERFLOW
DISPLAY "FAIL"
END-UNSTRING.
STOP RUN.
test_suite/compile_tests/ctestsl01.cob
+35
View File
@@ -0,0 +1,35 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTWS13.
ENVIRONMENT DIVISION.
* TEST SELECT FORMAT 1 (SEQUENTIAL).
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT GOZOUT
ASSIGN TO "./input.dat"
ORGANIZATION IS SEQUENTIAL
ACCESS IS SEQUENTIAL
FILE STATUS IS FS.
DATA DIVISION.
FILE SECTION.
FD GOZOUT
LABEL RECORD IS STANDARD.
01 GOZOUT-REC.
03 X-IND PIC 9(03).
03 DESCRIPTION PIC X(20).
03 FILLER PIC X(57).
WORKING-STORAGE SECTION.
01 FS PIC 9(02).
01 WS-COUNTERS.
05 WS-TEST-COUNTER PIC 9(4).
01 WS-DATA PIC X(80).
01 WS-NAME PIC X(80).
PROCEDURE DIVISION.
0000-MAIN.
MOVE "./INPUT.DAT" TO WS-NAME.
STOP RUN.
test_suite/compile_tests/ctestsl02.cob
+36
View File
@@ -0,0 +1,36 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTWS14.
ENVIRONMENT DIVISION.
* TEST SELECT VERB FULL FORMAT 1 (SEQUENTIAL).
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT OPTIONAL GOZOUT
ASSIGN TO "./input.dat"
USING WS-NAME
ORGANIZATION IS SEQUENTIAL
ACCESS IS SEQUENTIAL
FILE STATUS IS FS.
DATA DIVISION.
FILE SECTION.
FD GOZOUT
LABEL RECORD IS STANDARD.
01 GOZOUT-REC.
03 X-IND PIC 9(03).
03 DESCRIPTION PIC X(20).
03 FILLER PIC X(57).
WORKING-STORAGE SECTION.
01 FS PIC 9(02).
01 WS-COUNTERS.
05 WS-TEST-COUNTER PIC 9(4).
01 WS-DATA PIC X(80).
01 WS-NAME PIC X(80).
PROCEDURE DIVISION.
0000-MAIN.
MOVE "./INPUT.DAT" TO WS-NAME.
STOP RUN.
test_suite/compile_tests/ctestsl03.cob
+36
View File
@@ -0,0 +1,36 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTWS15.
ENVIRONMENT DIVISION.
* TEST SELECT FORMAT 2 (RELATIVE).
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT GOZOUT
ASSIGN TO "FILLER "
ORGANIZATION IS RELATIVE
ACCESS IS RANDOM
RELATIVE KEY IS WS-RECORD-NO
FILE STATUS IS FS.
DATA DIVISION.
FILE SECTION.
FD GOZOUT
LABEL RECORD IS STANDARD.
01 GOZOUT-REC.
03 X-IND PIC 9(03).
03 DESCRIPTION PIC X(20).
03 FILLER PIC X(57).
WORKING-STORAGE SECTION.
01 FS PIC 9(02).
01 WS-COUNTERS.
05 WS-TEST-COUNTER PIC 9(4).
01 WS-DATA PIC X(80).
01 WS-NAME PIC X(80) VALUE "./input.dat" .
01 WS-RECORD-NO PIC 9(9) COMP VALUE 0 .
PROCEDURE DIVISION.
0000-MAIN.
STOP RUN.
test_suite/compile_tests/ctestsl04.cob
+36
View File
@@ -0,0 +1,36 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTWS16.
ENVIRONMENT DIVISION.
* TEST SELECT FULL FORMAT 2 (RELATIVE).
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT OPTIONAL GOZOUT
ASSIGN TO "FILLER " USING WS-NAME
ORGANIZATION IS RELATIVE
ACCESS IS RANDOM
RELATIVE KEY IS WS-RECORD-NO
FILE STATUS IS FS.
DATA DIVISION.
FILE SECTION.
FD GOZOUT
LABEL RECORD IS STANDARD.
01 GOZOUT-REC.
03 X-IND PIC 9(03).
03 DESCRIPTION PIC X(20).
03 FILLER PIC X(57).
WORKING-STORAGE SECTION.
01 FS PIC 9(02).
01 WS-COUNTERS.
05 WS-TEST-COUNTER PIC 9(4).
01 WS-DATA PIC X(80).
01 WS-NAME PIC X(80) VALUE "./input.dat" .
01 WS-RECORD-NO PIC 9(9) COMP VALUE 0 .
PROCEDURE DIVISION.
0000-MAIN.
STOP RUN.
test_suite/compile_tests/ctestsl05.cob
+36
View File
@@ -0,0 +1,36 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTWS17.
ENVIRONMENT DIVISION.
* TEST SELECT FORMAT 3 (RANDOM).
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT GOZOUT
ASSIGN TO "FILLER "
* ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS RANDOM
* RELATIVE KEY IS X-IND
FILE STATUS IS FS.
DATA DIVISION.
FILE SECTION.
FD GOZOUT
LABEL RECORD IS STANDARD.
01 GOZOUT-REC.
03 X-IND PIC 9(03).
03 DESCRIPTION PIC X(20).
03 FILLER PIC X(57).
WORKING-STORAGE SECTION.
01 FS PIC 9(02).
01 WS-COUNTERS.
05 WS-TEST-COUNTER PIC 9(4).
01 WS-DATA PIC X(80).
01 WS-NAME PIC X(80) VALUE "./input.dat" .
01 WS-RECORD-NO PIC 9(9) COMP VALUE 0 .
PROCEDURE DIVISION.
0000-MAIN.
STOP RUN.
test_suite/compile_tests/ctestsl06.cob
+36
View File
@@ -0,0 +1,36 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTWS18.
ENVIRONMENT DIVISION.
* TEST SELECT FULL FORMAT 3 (RANDOM).
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT OPTIONAL GOZOUT
ASSIGN TO "FILLER " USING WS-NAME
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS RANDOM
RELATIVE KEY IS X-IND
FILE STATUS IS FS.
DATA DIVISION.
FILE SECTION.
FD GOZOUT
LABEL RECORD IS STANDARD.
01 GOZOUT-REC.
03 X-IND PIC 9(03).
03 DESCRIPTION PIC X(20).
03 FILLER PIC X(57).
WORKING-STORAGE SECTION.
01 FS PIC 9(02).
01 WS-COUNTERS.
05 WS-TEST-COUNTER PIC 9(4).
01 WS-DATA PIC X(80).
01 WS-NAME PIC X(80) VALUE "./input.dat" .
01 WS-RECORD-NO PIC 9(9) COMP VALUE 0 .
PROCEDURE DIVISION.
0000-MAIN.
STOP RUN.
test_suite/compile_tests/ctestsl07.cob
+36
View File
@@ -0,0 +1,36 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTWS19.
ENVIRONMENT DIVISION.
* TEST SELECT FORMAT 4 (INDEXED).
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT GOZOUT
ASSIGN TO "FILLER "
ORGANIZATION IS INDEXED
ACCESS IS DYNAMIC
RECORD KEY IS X-IND
FILE STATUS IS FS.
DATA DIVISION.
FILE SECTION.
FD GOZOUT
LABEL RECORD IS STANDARD.
01 GOZOUT-REC.
03 X-IND PIC 9(03).
03 DESCRIPTION PIC X(20).
03 FILLER PIC X(57).
WORKING-STORAGE SECTION.
01 FS PIC 9(02).
01 WS-COUNTERS.
05 WS-TEST-COUNTER PIC 9(4).
01 WS-DATA PIC X(80).
01 WS-NAME PIC X(80) VALUE "./input.dat" .
01 WS-RECORD-NO PIC 9(9) COMP VALUE 0 .
PROCEDURE DIVISION.
0000-MAIN.
STOP RUN.
test_suite/compile_tests/ctestsl08.cob
+37
View File
@@ -0,0 +1,37 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTESTWS20.
ENVIRONMENT DIVISION.
* TEST SELECT FULL FORMAT 4 (INDEXED).
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT OPTIONAL GOZOUT
ASSIGN TO "FILLER " USING WS-NAME
ORGANIZATION IS INDEXED
ACCESS IS DYNAMIC
RECORD KEY IS X-IND
ALTERNATE RECORD KEY IS DESCRIPTION
WITH DUPLICATES
FILE STATUS IS FS.
DATA DIVISION.
FILE SECTION.
FD GOZOUT
LABEL RECORD IS STANDARD.
01 GOZOUT-REC.
03 X-IND PIC 9(03).
03 DESCRIPTION PIC X(20).
03 FILLER PIC X(57).
WORKING-STORAGE SECTION.
01 FS PIC 9(02).
01 WS-COUNTERS.
05 WS-TEST-COUNTER PIC 9(4).
01 WS-DATA PIC X(80).
01 WS-NAME PIC X(80) VALUE "./input.dat" .
01 WS-RECORD-NO PIC 9(9) COMP VALUE 0 .
PROCEDURE DIVISION.
STOP RUN.
test_suite/compile_tests/ctestws01.cob
+22
View File
@@ -0,0 +1,22 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTEST_PIX.
AUTHOR. GLEN COLBERT.
INSTALLATION. Tiny Cobol Compiler Project.
SECURITY. NONE.
* Pares tests for pictures.
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-VARIABLES.
05 WS-LARGE-PICX PIC X(5000).
PROCEDURE DIVISION.
STOP RUN.
A000-EXIT.
EXIT.
test_suite/compile_tests/ctestws02.cob
+31
View File
@@ -0,0 +1,31 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTEST_PIX.
AUTHOR. GLEN COLBERT.
INSTALLATION. Tiny Cobol Compiler Project.
SECURITY. NONE.
* Pares tests for pictures.
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
* Maximun elementary alphanumeric size is 12750
* This limit can be overcome by using groups items
01 WS-VARIABLES.
* 05 WS-LARGE-PICX PIC X(51000).
05 WS-LARGE-PICX PIC X(12750).
05 FILLER PIC X(12750).
05 FILLER PIC X(12750).
05 FILLER PIC X(12750).
01 WS-VARIABLES1.
05 WS-LARGE-PICX1 PIC X(12750) OCCURS 100.
PROCEDURE DIVISION.
STOP RUN.
A000-EXIT.
EXIT.
test_suite/compile_tests/ctestws03.cob
+22
View File
@@ -0,0 +1,22 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTEST_PIX.
AUTHOR. GLEN COLBERT.
INSTALLATION. Tiny Cobol Compiler Project.
SECURITY. NONE.
* Pares tests for pictures.
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-VARIABLES.
05 WS-LARGE-PIC9 PIC 9(42).
PROCEDURE DIVISION.
STOP RUN.
A000-EXIT.
EXIT.
test_suite/compile_tests/ctestws04.cob
+22
View File
@@ -0,0 +1,22 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTEST_PIX.
AUTHOR. GLEN COLBERT.
INSTALLATION. Tiny Cobol Compiler Project.
SECURITY. NONE.
* Pares tests for pictures.
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-VARIABLES.
05 WS-LARGE-PIC9 PIC 9(16).
PROCEDURE DIVISION.
STOP RUN.
A000-EXIT.
EXIT.
test_suite/compile_tests/ctestws05.cob
+27
View File
@@ -0,0 +1,27 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTEST_PIX.
AUTHOR. GLEN COLBERT.
INSTALLATION. Tiny Cobol Compiler Project.
SECURITY. NONE.
* Pares tests for pictures.
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-VARIABLES.
05 WS-LARGE-PIC9 PIC 9(16)
USAGE IS COMPUTATIONAL.
05 WS-NORMAL-PIC9 PIC 9(6)
USAGE IS COMP.
PROCEDURE DIVISION.
MOVE 0 TO WS-LARGE-PIC9.
MOVE 0 TO WS-NORMAL-PIC9.
STOP RUN.
A000-EXIT.
EXIT.
test_suite/compile_tests/ctestws06.cob
+33
View File
@@ -0,0 +1,33 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTEST_PIX.
AUTHOR. GLEN COLBERT.
INSTALLATION. Tiny Cobol Compiler Project.
SECURITY. NONE.
* Pares tests for pictures.
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-VARIABLES.
05 WS-LARGE-P1 USAGE IS COMPUTATIONAL-2.
05 WS-LARGE-P2 USAGE IS COMP-2.
05 WS-NORMAL-P1 USAGE IS COMPUTATIONAL-1.
05 WS-NORMAL-P2 USAGE IS COMP-1.
05 WS-NORMAL-P3 USAGE IS FLOAT-SHORT.
05 WS-LARGE-P3 USAGE IS FLOAT-LONG.
PROCEDURE DIVISION.
MOVE 1.1 TO WS-LARGE-P1.
MOVE 2.2 TO WS-LARGE-P2.
MOVE 3.3 TO WS-NORMAL-P1.
MOVE 4.4 TO WS-NORMAL-P2.
MOVE 5.5 TO WS-NORMAL-P3.
MOVE 6.6 TO WS-LARGE-P3.
STOP RUN.
A000-EXIT.
EXIT.
test_suite/compile_tests/ctestws07.cob
+27
View File
@@ -0,0 +1,27 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTEST_PIX.
AUTHOR. GLEN COLBERT.
INSTALLATION. Tiny Cobol Compiler Project.
SECURITY. NONE.
* Pares tests for pictures.
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-VARIABLES.
05 WS-LARGE-PIC9 PIC 9(16)
USAGE IS COMPUTATIONAL-3.
05 WS-NORMAL-PIC9 PIC 9(6)
USAGE IS COMP-3.
PROCEDURE DIVISION.
MOVE 0 TO WS-LARGE-PIC9.
MOVE 0 TO WS-NORMAL-PIC9.
STOP RUN.
A000-EXIT.
EXIT.
test_suite/compile_tests/ctestws08.cob
+27
View File
@@ -0,0 +1,27 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTEST_PIX.
AUTHOR. GLEN COLBERT.
INSTALLATION. Tiny Cobol Compiler Project.
SECURITY. NONE.
* Pares tests for pictures.
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-VARIABLES.
05 WS-LARGE-PIC9 PIC 9(16)
USAGE IS PACKED-DECIMAL.
05 WS-NORMAL-PIC9 PIC 9(6)
USAGE IS PACKED-DECIMAL.
PROCEDURE DIVISION.
MOVE 0 TO WS-LARGE-PIC9.
MOVE 0 TO WS-NORMAL-PIC9.
STOP RUN.
A000-EXIT.
EXIT.
test_suite/compile_tests/ctestws09.cob
+27
View File
@@ -0,0 +1,27 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTEST_PIX.
AUTHOR. GLEN COLBERT.
INSTALLATION. Tiny Cobol Compiler Project.
SECURITY. NONE.
* Pares tests for pictures.
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-VARIABLES.
05 WS-LARGE-PIC9 PIC 9(16)
USAGE IS DISPLAY.
05 WS-NORMAL-PIC9 PIC 9(6)
USAGE IS DISPLAY.
PROCEDURE DIVISION.
MOVE 0 TO WS-LARGE-PIC9.
MOVE 0 TO WS-NORMAL-PIC9.
STOP RUN.
A000-EXIT.
EXIT.
test_suite/compile_tests/ctestws10.cob
+27
View File
@@ -0,0 +1,27 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTEST_PIX.
AUTHOR. GLEN COLBERT.
INSTALLATION. Tiny Cobol Compiler Project.
SECURITY. NONE.
* Pares tests for pictures.
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-VARIABLES.
05 WS-LARGE-PIC9 PIC S9(16)
USAGE IS DISPLAY.
05 WS-NORMAL-PIC9 PIC S9(6)
USAGE IS DISPLAY.
PROCEDURE DIVISION.
MOVE 0 TO WS-LARGE-PIC9.
MOVE 0 TO WS-NORMAL-PIC9.
STOP RUN.
A000-EXIT.
EXIT.
test_suite/compile_tests/ctestws11.cob
+27
View File
@@ -0,0 +1,27 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTEST_PIX.
AUTHOR. GLEN COLBERT.
INSTALLATION. Tiny Cobol Compiler Project.
SECURITY. NONE.
* Pares tests for pictures.
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-VARIABLES.
05 WS-LARGE-PIC9 PIC S9(16)
USAGE IS COMPUTATIONAL.
05 WS-NORMAL-PIC9 PIC S9(6)
USAGE IS COMP.
PROCEDURE DIVISION.
MOVE 0 TO WS-LARGE-PIC9.
MOVE 0 TO WS-NORMAL-PIC9.
STOP RUN.
A000-EXIT.
EXIT.
test_suite/compile_tests/ctestws12.cob
+27
View File
@@ -0,0 +1,27 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTEST_PIX.
AUTHOR. GLEN COLBERT.
INSTALLATION. Tiny Cobol Compiler Project.
SECURITY. NONE.
* Pares tests for pictures.
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-VARIABLES.
05 WS-LARGE-PIC9 PIC S9(16)
USAGE IS COMPUTATIONAL-3.
05 WS-NORMAL-PIC9 PIC S9(6)
USAGE IS COMP-3.
PROCEDURE DIVISION.
MOVE 0 TO WS-LARGE-PIC9.
MOVE 0 TO WS-NORMAL-PIC9.
STOP RUN.
A000-EXIT.
EXIT.
test_suite/compile_tests/sample.cob
+22
View File
@@ -0,0 +1,22 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. CTEST_PIX.
AUTHOR. GLEN COLBERT.
INSTALLATION. Tiny Cobol Compiler Project.
SECURITY. NONE.
* Pares tests for pictures.
ENVIRONMENT DIVISION.
* INPUT-OUTPUT SECTION.
* FILE-CONTROL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-VARIABLES.
05 WS-LARGE-PICX PIC X(5000).
PROCEDURE DIVISION.
STOP RUN.
A000-EXIT.
EXIT.
test_suite/compile_tests/test.script
+81
View File
@@ -0,0 +1,81 @@
ctest01:F:C001:Compile of empty file (cob)
ctest01a:F:CI01:Missing IDENTIFICATION DIVISION
ctest01b:F:CI02:Missing ENVIRONMENT DIVISION
#ctest01c:F:CI03:Missing DATA DIVISION
ctest01c:T:CI03:Missing DATA DIVISION
ctest01d:F:CI04:Missing PROCEDURE DIVISION
ctest01e:T:CI05:Reserved words in comments
ctest02:F:C002:Compile of empty file (cbl)
#
ctestws01:T:WS01:Large PICX test
ctestws02:T:WS02:Larger PICX test
ctestws03:F:WS03:Too Large PIC9 test
ctestws04:T:WS04:Large PIC9 test
ctestws05:T:WS05:Usage is COMP
ctestws06:T:WS06:Usage is SIGNED FLOAT (SHORT/LONG/COMP-1/COMP-2)
ctestws07:T:WS07:Usage is COMP-3
ctestws08:T:WS08:Usage is PACKED-DECIMAL
ctestws09:T:WS09:Usage is DISPLAY
ctestws10:T:WS10:Usage is SIGNED DISPLAY
ctestws11:T:WS11:Usage is SIGNED COMP
ctestws12:T:WS12:Usage is SIGNED COMP-3
#
ctested01:T:CI06:Recognize CONFIGURATION SECTION
ctested02:T:CI07:Recognize SOURCE COMPUTER
ctested03:T:CI08:Recognize DEBUGGING MODE
ctested04:T:CI09:Recognize OBJECT COMPUTER
ctested05:T:CI10:Recognize CURRENCY SIGN
ctested06:T:CI10:Recognize DECIMAL-POINT
# ctested07:T:CI10:Recognize CLASS
ctestfc01:T:CF01:Simple File Control
ctestfc02:T:CF01:Sequential Line Mode
ctest03:T:C003:Minimum Cobol structure - no logic
ctest04:T:C004:Identification Division Test 1
ctest05:T:C004:Permit multi-line remarks
ctest06:T:C005:Compile for figurative constants
#
# SELECT file
#
ctestsl01:T:SL01:Recognize simple SELECT (SEQUENTIAL)
ctestsl02:T:SL02:Recognize full SELECT (SEQUENTIAL)
ctestsl03:T:SL03:Recognize simple SELECT (RELATIVE)
ctestsl04:T:SL04:Recognize full SELECT (RELATIVE)
ctestsl05:T:SL05:Recognize simple SELECT (RANDOM)
ctestsl06:T:SL06:Recognize full SELECT (RANDOM)
ctestsl07:T:SL07:Recognize simple SELECT (INDEXED)
ctestsl08:T:SL08:Recognize full SELECT (INDEXED)
#
# PROCEDURE DIVISION VERBS
#
ctestp-accept1:T:CPA1:Recognize ACCEPT FROM DATE verb format
ctestp-accept2:T:CPA2:Recognize ACCEPT FROM TIME verb format
ctestp-add1:T:CPA7:Recognize ADD verb format 1 (TO)
ctestp-add2:T:CPA8:Recognize ADD verb format 2 (TO GIVING)
ctestp-add3:T:CPA9:Recognize ADD verb format 3 (CORRESPONDING)
ctestp-close1:T:CPC1:Recognize CLOSE WITH LOCK verb format
ctestp-compute1:T:CPC2:Recognize COMPUTE verb
ctestp-continue1:T:CPC3:Recognize CONTINUE verb
ctestp-delete1:T:CPD2:Recognize DELETE verb full format
ctestp-divide1:T:CPD2:Recognize DIVIDE verb format 1 (INTO)
ctestp-divide2:T:CPD3:Recognize DIVIDE verb format 2 (INTO GIVING)
ctestp-divide3:T:CPD4:Recognize DIVIDE verb format 3 (BY GIVING)
ctestp-divide4:T:CPD5:Recognize DIVIDE verb format 4 (INTO REMAINDER)
ctestp-divide5:T:CPD6:Recognize DIVIDE verb format 5 (BY REMAINDER)
ctestp-goto1:T:CPG1:Recognize GO TO DEPENDING ON verb format
ctestp-initialize1:T:CPI1:Recognize INITIALIZE verb full format
ctestp-multiply1:T:CPM1:Recognize MULTIPLY verb format 1 (BY)
ctestp-multiply2:T:CPM2:Recognize MULTIPLY verb format 2 (BY GIVING)
ctestp-open1:T:CPO1:Recognize OPEN verb full format
ctestp-read1:T:CPR1:Recognize READ verb format 1 (SEQUENTIAL)
ctestp-read2:T:CPR2:Recognize READ verb format 2 (RELATIVE)
ctestp-read3:T:CPR3:Recognize READ verb format 3 (RANDOM)
ctestp-read4:T:CPR4:Recognize READ verb format 3 (INDEXED)
ctestp-subtract1:T:CPS1:Recognize SUBTRACT verb format 1 (FROM)
ctestp-subtract2:T:CPS2:Recognize SUBTRACT verb format 2 (FROM GIVING)
ctestp-subtract3:T:CPS3:Recognize SUBTRACT verb format 3 (CORRESPONDING)
ctestp-search1:T:CPS4:Recognize SEARCH verb format 1 (VARYING)
ctestp-search2:T:CPS5:Recognize SEARCH verb format 2 (ALL)
ctestp-set1:T:CPS6:Recognize SET verb all formats
ctestp-start1:T:CPS7:Recognize START verb full format
ctestp-string1:T:CPS8:Recognize STRING verb full format
ctestp-unstring1:T:CPU1:Recognize UNSTRING verb full format