xxx

tests/cobol85/nist.at

@@ -1,5 +1,5 @@
-## Copyright (C) 2003-2012, 2014-2023 Free Software Foundation, Inc.
-## Written by Keisuke Nishida, Roger While, Simon Sobisch
+## Copyright (C) 2023 Free Software Foundation, Inc.
+## Written by Fabrice LE FESSANT
 ##
 ## This file is part of GnuCOBOL.
 ##
@@ -16,10 +16,7 @@
 ## You should have received a copy of the GNU General Public License
 ## along with GnuCOBOL.  If not, see <https://www.gnu.org/licenses/>.
 
-AT_COPYRIGHT([Test cases Copyright (C) 2023 Free Software Foundation, Inc.
-
-Written by Keisuke Nishida, Roger While, Simon Sobisch, Edward Hart,
-Ron Norman, Brian Tiffin, Dave Pitts])
+AT_COPYRIGHT([Test cases from NIST])
 
 ### GnuCOBOL Test Suite
 

tests/cobol85/testsuite.src/run_DB.at

@@ -1,133 +1,205 @@
 
 
 
-AT_SETUP([DB / DB101A])
+AT_SETUP([DB101A])
+# promoted on 2023-02-04T01:25
 AT_KEYWORDS([DB])
-AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB101A.CBL .],[0])
-AT_CHECK([$COMPILE -std=cobol85 -x DB101A.CBL], [0])
-AT_CHECK([./DB101A], [0])
+AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB101A.CBL .], [0], [], [])
+AT_CHECK([$COMPILE -std=cobol85 -x DB101A.CBL], [0], [], [])
+AT_CHECK([./DB101A], [0], [], [])
+
 AT_CLEANUP
 
 
-AT_SETUP([DB / DB102A])
+AT_SETUP([DB102A])
+# promoted on 2023-02-04T01:25
 AT_KEYWORDS([DB])
-AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB102A.CBL .],[0])
-AT_CHECK([$COMPILE -std=cobol85 -x -debug DB102A.CBL], [0])
+AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB102A.CBL .], [0], [], [])
+AT_CHECK([$COMPILE -std=cobol85 DB102A.CBL], [0], [], [])
 AT_CHECK([./DB102A], [0], [], [])
+
 AT_CLEANUP
 
-AT_SETUP([DB / DB103M])
+AT_SETUP([DB103M])
+# promoted on 2023-02-04T01:25
 AT_KEYWORDS([DB])
-AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB103M.CBL .],[0])
-AT_CHECK([$COMPILE -std=cobol85 -x -debug DB103M.CBL], [0])
+AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB103M.CBL .], [0], [], [])
+AT_CHECK([$COMPILE -std=cobol85 DB103M.CBL], [0], [], [])
 AT_CHECK([./DB103M], [0], [], [])
+
 AT_CLEANUP
 # Reexecution with runtime DEBUG off ./DB103M
 
 
-AT_SETUP([DB / DB104A])
+AT_SETUP([DB104A])
+# promoted on 2023-02-04T01:25
 AT_KEYWORDS([DB])
-AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB104A.CBL .],[0])
-AT_CHECK([$COMPILE -std=cobol85 -x DB104A.CBL], [0])
-AT_CHECK([./DB104A], [0])
+AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB104A.CBL .], [0], [], [])
+AT_CHECK([$COMPILE -std=cobol85 -x DB104A.CBL], [0], [], [DB104A.CBL: in section 'CCVS1':
+DB104A.CBL: in paragraph 'BEGIN-FILE-GENERATION':
+DB104A.CBL:413: warning: value size exceeds data size
+DB104A.CBL:413: note: value size is 6
+DB104A.CBL:124: note: 'XPROGRAM-NAME' defined here as PIC X(5)
+])
+AT_CHECK([./DB104A], [0], [], [])
+
 AT_CLEANUP
 
 
-AT_SETUP([DB / DB105A])
+AT_SETUP([DB105A])
+# promoted on 2023-02-04T01:25
 AT_KEYWORDS([DB])
-AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB105A.CBL .],[0])
-AT_CHECK([$COMPILE -std=cobol85 -x -debug DB105A.CBL], [0])
+AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB105A.CBL .], [0], [], [])
+AT_CHECK([$COMPILE -std=cobol85 DB105A.CBL], [0], [], [DB105A.CBL: in section 'CCVS1':
+DB105A.CBL: in paragraph 'DE-LETE':
+DB105A.CBL:546: warning: value size exceeds data size
+DB105A.CBL:546: note: value size is 20
+DB105A.CBL:412: note: 'RE-MARK' defined here as PIC XXX
+DB105A.CBL: in section 'PROC-021-GO--PASS-4':
+DB105A.CBL: in paragraph 'PROC-040-PFM-TEST-1':
+DB105A.CBL:805: warning: NEXT SENTENCE is archaic in COBOL 85
+DB105A.CBL: in paragraph 'PROC-045-PFM-B':
+DB105A.CBL:836: warning: NEXT SENTENCE is archaic in COBOL 85
+DB105A.CBL: in paragraph 'PROC-047-PFM-TEST-3':
+DB105A.CBL:848: warning: NEXT SENTENCE is archaic in COBOL 85
+DB105A.CBL: in paragraph 'PROC-055-PFM-TEST-4':
+DB105A.CBL:863: warning: NEXT SENTENCE is archaic in COBOL 85
+DB105A.CBL: in paragraph 'PROC-061-PFM-TEST-5':
+DB105A.CBL:878: warning: NEXT SENTENCE is archaic in COBOL 85
+DB105A.CBL: in section 'PROC-211-PFM-A-15':
+DB105A.CBL: in paragraph 'PROC-000-PFM-C-15':
+DB105A.CBL:1163: warning: value size exceeds data size
+DB105A.CBL:1163: note: value size is 21
+DB105A.CBL:412: note: 'RE-MARK' defined here as PIC XXX
+DB105A.CBL: in paragraph 'PROC-000-PFM-D-15':
+DB105A.CBL:1168: warning: value size exceeds data size
+DB105A.CBL:1168: note: value size is 26
+DB105A.CBL:412: note: 'RE-MARK' defined here as PIC XXX
+DB105A.CBL: in section 'PROC-000-PFM-J-15':
+DB105A.CBL: in paragraph 'PROC-000-PFM-K-15':
+DB105A.CBL:1187: warning: value size exceeds data size
+DB105A.CBL:1187: note: value size is 25
+DB105A.CBL:412: note: 'RE-MARK' defined here as PIC XXX
+DB105A.CBL: in section 'CCVS-EXIT':
+DB105A.CBL: in paragraph 'CCVS-999999':
+DB105A.CBL:975: warning: PROC-118-PFM-B-10 and PROC-120-PFM-D-10 are not in the same SECTION
+DB105A.CBL:981: warning: PROC-117-PFM-A-10 and PROC-120-PFM-D-10 are not in the same SECTION
+DB105A.CBL:1015: warning: PROC-140-PFM-B-11 and PROC-140-PFM-D-11 are not in the same SECTION
+DB105A.CBL:1021: warning: PROC-139-PFM-A-11 and PROC-140-PFM-D-11 are not in the same SECTION
+DB105A.CBL:1151: warning: PROC-213-PFM-G-15 and PROC-217-PFM-B-15 are not in the same SECTION
+DB105A.CBL:1151: warning: PROC-217-PFM-B-15 is defined before PROC-213-PFM-G-15
+DB105A.CBL:1176: note: 'PROC-213-PFM-G-15' defined here
+DB105A.CBL:1157: note: 'PROC-217-PFM-B-15' defined here
+])
 AT_CHECK([./DB105A], [0], [], [])
+
 AT_CLEANUP
 
-AT_SETUP([DB / DB201A])
+AT_SETUP([DB201A])
+# promoted on 2023-02-04T01:25
 AT_KEYWORDS([DB])
-AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB201A.CBL .],[0])
-AT_CHECK([$COMPILE -std=cobol85 -x DB201A.CBL], [0])
-AT_CHECK([./DB201A], [0])
+AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB201A.CBL .], [0], [], [])
+AT_CHECK([$COMPILE -std=cobol85 -x DB201A.CBL], [0], [], [])
+AT_CHECK([./DB201A], [0], [], [])
+
 AT_CLEANUP
 
 
-AT_SETUP([DB / DB202A])
+AT_SETUP([DB202A])
+# promoted on 2023-02-04T01:25
 AT_KEYWORDS([DB])
-AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB202A.CBL .],[0])
-AT_CHECK([$COMPILE -std=cobol85 -x DB202A.CBL], [0])
-AT_CHECK([./DB202A], [0])
+AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB202A.CBL .], [0], [], [])
+AT_CHECK([$COMPILE -std=cobol85 -x DB202A.CBL], [0], [], [])
+AT_CHECK([./DB202A], [0], [], [])
+
 AT_CLEANUP
 
 
-AT_SETUP([DB / DB203A])
+AT_SETUP([DB203A])
+# promoted on 2023-02-04T01:25
 AT_KEYWORDS([DB])
-AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB203A.CBL .],[0])
-AT_CHECK([$COMPILE -std=cobol85 -x DB203A.CBL], [0])
-AT_CHECK([./DB203A], [0])
+AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB203A.CBL .], [0], [], [])
+AT_CHECK([$COMPILE -std=cobol85 -x DB203A.CBL], [0], [], [])
+AT_CHECK([./DB203A], [0], [], [])
+
 AT_CLEANUP
 
 
-AT_SETUP([DB / DB204A])
+AT_SETUP([DB204A])
+# promoted on 2023-02-04T01:25
 AT_KEYWORDS([DB])
-AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB204A.CBL .],[0])
-AT_CHECK([$COMPILE -std=cobol85 -x DB204A.CBL], [0])
-AT_CHECK([./DB204A], [0])
+AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB204A.CBL .], [0], [], [])
+AT_CHECK([$COMPILE -std=cobol85 -x DB204A.CBL], [0], [], [])
+AT_CHECK([./DB204A], [0], [], [])
+
 AT_CLEANUP
 
 
-AT_SETUP([DB / DB205A])
+AT_SETUP([DB205A])
+# promoted on 2023-02-04T01:25
 AT_KEYWORDS([DB])
-AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB205A.CBL .],[0])
-AT_CHECK([$COMPILE -std=cobol85 -x -debug DB205A.CBL], [0])
-# AT_CHECK([./DB205A], [0], [], [])
-AT_CLEANUP
+AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB205A.CBL .], [0], [], [])
+AT_CHECK([$COMPILE -std=cobol85 DB205A.CBL], [0], [], [DB205A.CBL:172: warning: COMMUNICATION SECTION is not implemented
+DB205A.CBL: in section 'BEGIN-DB205A-TESTS':
+DB205A.CBL: in paragraph 'ACCEPT-TEST-1':
+DB205A.CBL:394: warning: ACCEPT MESSAGE COUNT is not implemented
+])
 
-AT_SETUP([DB / DB301M])
+AT_CLEANUP
 
+AT_SETUP([DB301M])
+# promoted on 2023-02-04T01:25
 AT_KEYWORDS([DB])
-AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB301M.CBL .], [0])
-AT_CHECK([$COMPILE -std=cobol85 -x -debug DB301M.CBL], [0])
+AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB301M.CBL .], [0], [], [])
+AT_CHECK([$COMPILE -std=cobol85 DB301M.CBL], [0], [], [])
 AT_CHECK([./DB301M], [0], [THIS IS A DUMMY PROCEDURE
 ], [])
 
 AT_CLEANUP
 
 
-AT_SETUP([DB / DB302M])
-
+AT_SETUP([DB302M])
+# promoted on 2023-02-04T01:25
 AT_KEYWORDS([DB])
-AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB302M.CBL .], [0])
-AT_CHECK([$COMPILE -std=cobol85 -x -debug DB302M.CBL], [0])
+AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB302M.CBL .], [0], [], [])
+AT_CHECK([$COMPILE -std=cobol85 DB302M.CBL], [0], [], [])
 AT_CHECK([./DB302M], [0], [THIS IS A DUMMY PROCEDURE
 ], [])
 
 AT_CLEANUP
 
 
-AT_SETUP([DB / DB303M])
-
+AT_SETUP([DB303M])
+# promoted on 2023-02-04T01:25
 AT_KEYWORDS([DB])
-AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB303M.CBL .], [0])
-AT_CHECK([$COMPILE -std=cobol85 -x -debug DB303M.CBL], [0])
+AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB303M.CBL .], [0], [], [])
+AT_CHECK([$COMPILE -std=cobol85 DB303M.CBL], [0], [], [])
 AT_CHECK([./DB303M], [0], [THIS IS A DUMMY PROCEDURE
 ], [])
 
 AT_CLEANUP
 
 
-AT_SETUP([DB / DB304M])
-
+AT_SETUP([DB304M])
+# promoted on 2023-02-04T01:16
 AT_KEYWORDS([DB])
-AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB304M.CBL .], [0])
-AT_CHECK([$COMPILE -std=cobol85 -x -debug -Wobsolete DB304M.CBL], [0])
+AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB304M.CBL .], [0], [], [])
+AT_CHECK([$COMPILE -std=cobol85 -Wobsolete DB304M.CBL], [0], [], [DB304M.CBL:15: warning: COMMUNICATION SECTION is obsolete in COBOL 85
+DB304M.CBL:15: warning: COMMUNICATION SECTION is not implemented
+DB304M.CBL: in section 'BUGGING':
+DB304M.CBL:28: warning: USE FOR DEBUGGING is obsolete in COBOL 85
+])
 AT_CHECK([./DB304M], [0], [THIS IS A DUMMY PROCEDURE
 ], [])
 
 AT_CLEANUP
 
 
-AT_SETUP([DB / DB305M])
-
+AT_SETUP([DB305M])
+# promoted on 2023-02-04T01:25
 AT_KEYWORDS([DB])
-AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB305M.CBL .], [0])
-AT_CHECK([$COMPILE -std=cobol85 -x -debug DB305M.CBL], [0])
+AT_CHECK([cp -f ${abs_builddir}/cobol85/DB/DB305M.CBL .], [0], [], [])
+AT_CHECK([$COMPILE -std=cobol85 DB305M.CBL], [0], [], [])
 AT_CHECK([./DB305M], [0], [THIS IS A DUMMY PROCEDURE
 ], [])