From 7c808a2e48b3ce7573e690715e0c46445e9a0923 Mon Sep 17 00:00:00 2001
From: "James K. Lowden" <jklowden@symas.com>
Date: Mon, 15 Apr 2024 09:30:44 -0400
Subject: [PATCH] UAT output repair

---
 gcc/cobol/UAT/failsuite.src/typedef.at | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/cobol/UAT/failsuite.src/typedef.at b/gcc/cobol/UAT/failsuite.src/typedef.at
index 7bf6a29234a4..9cc7be01fd92 100644
--- a/gcc/cobol/UAT/failsuite.src/typedef.at
+++ b/gcc/cobol/UAT/failsuite.src/typedef.at
@@ -214,7 +214,7 @@ AT_DATA([badprog.cob], [
 AT_CHECK([$COMPILE_ONLY -dialect mf badprog.cob], [1], [],
 [badprog.cob:8: error: 02 F1  may not reference itself as part of 01 MESSAGE-TEXT-2T at 'MESSAGE-TEXT-2T'
 badprog.cob:10: error: F1 created with SAME AS or TYPE TO, cannot have new member FILLER at 'FILLER'
-badprog.cob:10: error: 05 FILLER on is not part of an 01 record at 'FILLER'
+badprog.cob:10: error: 05 FILLER is not part of an 01 record at 'FILLER'
 badprog.cob:12: error: PIC incompatible with TYPE TO
 badprog.cob:12: error: 77 OUTPUT-NAME TYPE TO MESSAGE-TEXT-2T must be an elementary item at 'MESSAGE-TEXT-2T'
 .:13: 5 errors in DATA DIVISION, compilation ceases detected at end of file
-- 
GitLab