[Bug cobol/127412] error: iconv_open: cannot convert to 'CP1140' from 'CP1252'

[kargl at gcc dot gnu.org via Gcc-bugs]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=127412

--- Comment #4 from Steve Kargl <kargl at gcc dot gnu.org> ---
With the patch at the end of this post, gcobol passes its regression test
on x86_64-*-freebsd.


Running /home/kargl/gcc/gcc/gcc/testsuite/cobol.dg/dg.exp ...

                === cobol Summary ===

# of expected passes            8113
# of expected failures          78
/home/kargl/gcc/obj/gcc/gcobol  version 17.0.0 20260917 (experimental) (GCC) 

gmake[1]: Leaving directory '/home/kargl/gcc/obj/gcc'




diff --git a/gcc/testsuite/cobol.dg/group2/CDF_Feature_.cob
b/gcc/testsuite/cobol.dg/group2/CDF_Feature_.cob
index 9150dd5d721..d404c338d6a 100644
--- a/gcc/testsuite/cobol.dg/group2/CDF_Feature_.cob
+++ b/gcc/testsuite/cobol.dg/group2/CDF_Feature_.cob
@@ -1,6 +1,6 @@
       *> Do not edit this generated file.  See README.txt
       *> { dg-do run }
-       *> { dg-options "-fexec-charset=cp1140 -dialect ibm" }
+       *> { dg-options "-fexec-charset=cp01140 -dialect ibm" }
        *> { 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 346f393777c..6b3a109f401 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,6 @@
       *> Do not edit this generated file.  See README.txt
       *> { dg-do run }
-       *> { dg-options "-fexec-charset=cp1140" }
+       *> { dg-options "-fexec-charset=cp01140" }
        *> { 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 1cc5ae59942..ccffc458095 100644
--- a/gcc/testsuite/cobol.dg/group2/FIND-STRING__forward_.cob
+++ b/gcc/testsuite/cobol.dg/group2/FIND-STRING__forward_.cob
@@ -1,6 +1,6 @@
       *> Do not edit this generated file.  See README.txt
       *> { dg-do run }
-       *> { dg-options "-fexec-charset=cp1140" }
+       *> { dg-options "-fexec-charset=cp01140" }
        *> { 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 831822cd1d2..e8f353a2d48 100644
--- a/gcc/testsuite/cobol.dg/group2/FIND-STRING__reverse_.cob
+++ b/gcc/testsuite/cobol.dg/group2/FIND-STRING__reverse_.cob
@@ -1,6 +1,6 @@
       *> Do not edit this generated file.  See README.txt
       *> { dg-do run }
-       *> { dg-options "-fexec-charset=cp1140" }
+       *> { dg-options "-fexec-charset=cp01140" }
        *> { dg-output-file "group2/FIND-STRING__reverse_.out" }
         IDENTIFICATION  DIVISION.
         PROGRAM-ID.     prog.
diff --git a/gcc/testsuite/cobol.dg/group2/FUNCTION_CONVERT.cob
b/gcc/testsuite/cobol.dg/group2/FUNCTION_CONVERT.cob
index 48c4c0bfd9b..eefa89e57f8 100644
--- a/gcc/testsuite/cobol.dg/group2/FUNCTION_CONVERT.cob
+++ b/gcc/testsuite/cobol.dg/group2/FUNCTION_CONVERT.cob
@@ -7,7 +7,7 @@
         configuration       section.
         special-names.
             locale sbc  is "cp1252"
-            locale ebcd is "cp1140".
+            locale ebcd is "cp01140".
         object-computer.
             gnu-linux
                 classification
diff --git a/libgcobol/charmaps.cc b/libgcobol/charmaps.cc
index 27f4b8f467d..4464e411d0b 100644
--- a/libgcobol/charmaps.cc
+++ b/libgcobol/charmaps.cc
@@ -412,7 +412,8 @@ static encodings_t encodings[] = {
   { false, iconv_CP1132_e, "CP1132" },
   { false, iconv_CP1133_e, "CP1133" },
   { false, iconv_CP1137_e, "CP1137" },
-  {  true, iconv_CP1140_e, "CP1140" },
+  {  true, iconv_CP1140_e, "CP01140" },
+//  {  true, iconv_CP1140_e, "CP1140" },
   { false, iconv_CP1141_e, "CP1141" },
   { false, iconv_CP1142_e, "CP1142" },
   { false, iconv_CP1143_e, "CP1143" },