From 34bb80f5505d34b1e3c7587e9d69a6aa1a25b51b Mon Sep 17 00:00:00 2001
From: Bob Dubner <rdubner@symas.com>
Date: Wed, 20 Dec 2023 18:41:09 -0500
Subject: [PATCH] Replace calls to SUBSTITUTE-CASE() with SUBSTITUTE(dest
ANYCASE...)
---
gcc/cobol/UAT/failsuite.src/run_functions.at | 12 +++++-------
1 file changed, 5 insertions(+), 7 deletions(-)
diff --git a/gcc/cobol/UAT/failsuite.src/run_functions.at b/gcc/cobol/UAT/failsuite.src/run_functions.at
index 65f2fe42de03..6cd43f4ae8b6 100644
--- a/gcc/cobol/UAT/failsuite.src/run_functions.at
+++ b/gcc/cobol/UAT/failsuite.src/run_functions.at
@@ -2926,8 +2926,6 @@ AT_CLEANUP
AT_SETUP([FUNCTION SUBSTITUTE-CASE])
AT_KEYWORDS([functions])
-AT_XFAIL_IF([test "$COB_DIALECT" != "gnu"])
-
AT_DATA([prog.cob], [
IDENTIFICATION DIVISION.
PROGRAM-ID. prog.
@@ -2937,7 +2935,8 @@ AT_DATA([prog.cob], [
01 Z PIC X(20).
PROCEDURE DIVISION.
MOVE "ABC111444555defxxabc" TO Y.
- MOVE FUNCTION SUBSTITUTE-CASE (Y "abc" "zz" "55" "666")
+ MOVE FUNCTION SUBSTITUTE (Y anycase "abc" "zz"
+ anycase "55" "666")
TO Z.
IF Z NOT = "zz1114446665defxxzz"
DISPLAY Z
@@ -2952,8 +2951,6 @@ AT_CLEANUP
AT_SETUP([FUNCTION SUBSTITUTE-CASE with reference mod])
AT_KEYWORDS([functions])
-AT_XFAIL_IF([test "$COB_DIALECT" != "gnu"])
-
AT_DATA([prog.cob], [
IDENTIFICATION DIVISION.
PROGRAM-ID. prog.
@@ -2963,8 +2960,9 @@ AT_DATA([prog.cob], [
01 Z PIC X(20).
PROCEDURE DIVISION.
MOVE "abc111444555defxxabc" TO Y.
- MOVE FUNCTION SUBSTITUTE-CASE
- ( Y "ABC" "zz" "55" "666" ) (2 : 9)
+ MOVE FUNCTION SUBSTITUTE
+ ( Y anycase "ABC" "zz"
+ anycase "55" "666" ) (2 : 9)
TO Z.
IF Z NOT = "z11144466"
DISPLAY Z
--
GitLab