https://gcc.gnu.org/g:775c869f70344091bee687df99bad668eaa38f6d
commit r17-4614-g775c869f70344091bee687df99bad668eaa38f6d Author: Robert Dubner <[email protected]> Date: Wed Sep 23 14:00:10 2026 -0400 cobol: Add "dg-require-iconv" to automated dg test generation. gcc/testsuite/ChangeLog: * cobol.dg/group2/CBL_READ_FILE__check_file_size_with_flags___128.cob: Add dg-require-iconv directive. * cobol.dg/group2/CDF_Feature_.cob: Likewise. * cobol.dg/group2/CHAR_and_ORD_with_COLLATING_sequence_-_EBCDIC.cob: Likewise. * cobol.dg/group2/FIND-STRING__forward_.cob: Likewise. * cobol.dg/group2/FIND-STRING__reverse_.cob: Likewise. * cobol.dg/group2/RT3609_Unexpected_PROCESS.cob: Likewise. Diff: --- .../cobol.dg/group2/CBL_READ_FILE__check_file_size_with_flags___128.cob | 1 + gcc/testsuite/cobol.dg/group2/CDF_Feature_.cob | 1 + .../cobol.dg/group2/CHAR_and_ORD_with_COLLATING_sequence_-_EBCDIC.cob | 1 + gcc/testsuite/cobol.dg/group2/FIND-STRING__forward_.cob | 1 + gcc/testsuite/cobol.dg/group2/FIND-STRING__reverse_.cob | 1 + gcc/testsuite/cobol.dg/group2/RT3609_Unexpected_PROCESS.cob | 1 + 6 files changed, 6 insertions(+) diff --git a/gcc/testsuite/cobol.dg/group2/CBL_READ_FILE__check_file_size_with_flags___128.cob b/gcc/testsuite/cobol.dg/group2/CBL_READ_FILE__check_file_size_with_flags___128.cob index aac046ccde13..7326d845a8b1 100644 --- a/gcc/testsuite/cobol.dg/group2/CBL_READ_FILE__check_file_size_with_flags___128.cob +++ b/gcc/testsuite/cobol.dg/group2/CBL_READ_FILE__check_file_size_with_flags___128.cob @@ -31,6 +31,7 @@ perform write-file. perform check-file-size. move zero to return-code. + call "CBL_DELETE_FILE" using filename goback. write-file section. diff --git a/gcc/testsuite/cobol.dg/group2/CDF_Feature_.cob b/gcc/testsuite/cobol.dg/group2/CDF_Feature_.cob index fa701da6c522..29cba015e9d4 100644 --- a/gcc/testsuite/cobol.dg/group2/CDF_Feature_.cob +++ b/gcc/testsuite/cobol.dg/group2/CDF_Feature_.cob @@ -1,6 +1,7 @@ *> Do not edit this generated file. See README.txt *> { dg-do run } *> { dg-options "-fexec-charset=ibm1140 -dialect ibm" } + *> { dg-require-iconv "ibm1140" } *> { dg-output-file "group2/CDF_Feature_.out" } id division. diff --git a/gcc/testsuite/cobol.dg/group2/CHAR_and_ORD_with_COLLATING_sequence_-_EBCDIC.cob b/gcc/testsuite/cobol.dg/group2/CHAR_and_ORD_with_COLLATING_sequence_-_EBCDIC.cob index 0cde1ff859ac..5079be6ce1d7 100644 --- a/gcc/testsuite/cobol.dg/group2/CHAR_and_ORD_with_COLLATING_sequence_-_EBCDIC.cob +++ b/gcc/testsuite/cobol.dg/group2/CHAR_and_ORD_with_COLLATING_sequence_-_EBCDIC.cob @@ -1,6 +1,7 @@ *> Do not edit this generated file. See README.txt *> { dg-do run } *> { dg-options "-fexec-charset=ibm1140" } + *> { dg-require-iconv "ibm1140" } *> { dg-output-file "group2/CHAR_and_ORD_with_COLLATING_sequence_-_EBCDIC.out" } IDENTIFICATION DIVISION. PROGRAM-ID. prog. diff --git a/gcc/testsuite/cobol.dg/group2/FIND-STRING__forward_.cob b/gcc/testsuite/cobol.dg/group2/FIND-STRING__forward_.cob index f007d7093443..a75f498784e8 100644 --- a/gcc/testsuite/cobol.dg/group2/FIND-STRING__forward_.cob +++ b/gcc/testsuite/cobol.dg/group2/FIND-STRING__forward_.cob @@ -1,6 +1,7 @@ *> Do not edit this generated file. See README.txt *> { dg-do run } *> { dg-options "-fexec-charset=ibm1140" } + *> { dg-require-iconv "ibm1140" } *> { dg-output-file "group2/FIND-STRING__forward_.out" } IDENTIFICATION DIVISION. PROGRAM-ID. prog. diff --git a/gcc/testsuite/cobol.dg/group2/FIND-STRING__reverse_.cob b/gcc/testsuite/cobol.dg/group2/FIND-STRING__reverse_.cob index e30011e2800a..910de65510e8 100644 --- a/gcc/testsuite/cobol.dg/group2/FIND-STRING__reverse_.cob +++ b/gcc/testsuite/cobol.dg/group2/FIND-STRING__reverse_.cob @@ -1,6 +1,7 @@ *> Do not edit this generated file. See README.txt *> { dg-do run } *> { dg-options "-fexec-charset=ibm1140" } + *> { dg-require-iconv "ibm1140" } *> { dg-output-file "group2/FIND-STRING__reverse_.out" } IDENTIFICATION DIVISION. PROGRAM-ID. prog. diff --git a/gcc/testsuite/cobol.dg/group2/RT3609_Unexpected_PROCESS.cob b/gcc/testsuite/cobol.dg/group2/RT3609_Unexpected_PROCESS.cob index 172a112fa3c6..6575585064fb 100644 --- a/gcc/testsuite/cobol.dg/group2/RT3609_Unexpected_PROCESS.cob +++ b/gcc/testsuite/cobol.dg/group2/RT3609_Unexpected_PROCESS.cob @@ -1,6 +1,7 @@ *> Do not edit this generated file. See README.txt *> { dg-do run } *> { dg-options "-O0 -Wno-ibm-cdf -I copybooks -Wno-recording-mode -ffixed-form -dialect ibm -fno-static-call -fexec-charset=CP037 -fexec-national-charset=CP037" } + *> { dg-require-iconv "CP037" } 00001 PROCESS FLAG(I,W) FDUMP 00002 IDENTIFICATION DIVISION.
