Skip to content
Snippets Groups Projects
Commit 142c8d56 authored by James K. Lowden's avatar James K. Lowden :anchor:
Browse files

LENGTH OF argument accepts subscript

parent 1ce25538
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 2 additions and 2 deletions
gcc/cobol/parse.y
+ 2
− 2
View file @ 142c8d56
......@@ -2702,8 +2702,8 @@ data_descr: data_descr1
;
const_value: cce_expr
| BYTE_LENGTH of name { $$ = $name->data.capacity; }
| LENGTH of name { $$ = $name->data.capacity; }
| BYTE_LENGTH of scalar[r] { $$ = $r->field->data.capacity; }
| LENGTH of scalar[r] { $$ = $r->field->data.capacity; }
;
value78: literalism
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment