[committed] cobol: Add "dg-require-iconv" to automated dg test generation.

[Robert Dubner]

From: Robert Dubner <rdub...@symas.com>
Date: Wed, 23 Sep 2026 14:00:10 -0400
Subject: [PATCH] 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.
---
 .../group2/CBL_READ_FILE__check_file_size_with_flags___128.cob   | 1 +
 gcc/testsuite/cobol.dg/group2/CDF_Feature_.cob                   | 1 +
 .../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 aac046ccde1..7326d845a8b 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 fa701da6c52..29cba015e9d 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_-_EBC
DIC.cob
b/gcc/testsuite/cobol.dg/group2/CHAR_and_ORD_with_COLLATING_sequence_-_EBC
DIC.cob
index 0cde1ff859a..5079be6ce1d 100644
---
a/gcc/testsuite/cobol.dg/group2/CHAR_and_ORD_with_COLLATING_sequence_-_EBC
DIC.cob
+++
b/gcc/testsuite/cobol.dg/group2/CHAR_and_ORD_with_COLLATING_sequence_-_EBC
DIC.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 f007d709344..a75f498784e 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 e30011e2800..910de65510e 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 172a112fa3c..6575585064f 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.
-- 
2.34.1