diff --git a/gcc/cobol/parse_ante.h b/gcc/cobol/parse_ante.h index 376cb289f3d5c75adb0ab2e79e9a02e86131bd15..b04c1cbe08e75731c92aa5dd7b8b83b22a1e4ab1 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() ); + } } }