From d85f3373a5f57be93040c51135544e3f6a6373c3 Mon Sep 17 00:00:00 2001
From: Bob Dubner <rdubner@symas.com>
Date: Wed, 3 Jan 2024 23:15:41 -0500
Subject: [PATCH] Ibid.
---
gcc/cobol/UAT/failsuite.src/run_functions.at | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/gcc/cobol/UAT/failsuite.src/run_functions.at b/gcc/cobol/UAT/failsuite.src/run_functions.at
index 25417135f008..62dd92a1832d 100644
--- a/gcc/cobol/UAT/failsuite.src/run_functions.at
+++ b/gcc/cobol/UAT/failsuite.src/run_functions.at
@@ -848,7 +848,7 @@ AT_DATA([prog.cob], [
05 X PIC A(4) VALUE "ABC".
05 E REDEFINES X PIC A(1) OCCURS 4.
LINKAGE SECTION.
- 77 B PIC A BASED.
+ 77 B PIC A.
PROCEDURE DIVISION.
set P to address of E(1).
@@ -856,7 +856,7 @@ AT_DATA([prog.cob], [
display FUNCTION trim(x) '.'
set address of B to p.
- perform test after until B = SPACE
+ perform until B = SPACE
display B no advancing
set p up by 1
set address of B to p
--
GitLab