From 79daef810d4a01a88fa57aa180b831c8f70c2045 Mon Sep 17 00:00:00 2001
From: "James K. Lowden" <jklowden@symas.com>
Date: Tue, 2 Jan 2024 16:53:01 -0500
Subject: [PATCH] fixed spurious error message
---
gcc/cobol/parse_ante.h | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/gcc/cobol/parse_ante.h b/gcc/cobol/parse_ante.h
index 376cb289f3d5..b04c1cbe08e7 100644
--- a/gcc/cobol/parse_ante.h
+++ b/gcc/cobol/parse_ante.h
@@ -2166,7 +2166,7 @@ valid_redefine( const cbl_field_t *field, const cbl_field_t *orig ) {
*/
if( field->type != FldGroup && orig->type != FldGroup ) {
if( orig->size() < field->size() ) {
- if( orig->level > 1 || has_field_attr(orig->attr, external_e) )
+ if( orig->level > 1 || has_field_attr(orig->attr, external_e) ) {
if( yydebug ) {
yyerrorv( "size error orig: %s", field_str(orig) );
yyerrorv( "size error redef: %s", field_str(field) );
@@ -2176,6 +2176,7 @@ valid_redefine( const cbl_field_t *field, const cbl_field_t *orig ) {
3 + cbl_field_type_str(field->type), field->size(),
orig->name,
3 + cbl_field_type_str(orig->type), orig->size() );
+ }
}
}
--
GitLab