Skip to content
Snippets Groups Projects
Commit f77a2042 authored by Johannes Mey's avatar Johannes Mey
Browse files

improve parsing of ObjectName

parent a145d33b
No related branches found
No related tags found
No related merge requests found
......@@ -2699,6 +2699,7 @@ CommonBlockObject common_block_object =
//// ArrayElement_Designator:Designator ::= ArrayElement ;
//// ArraySection_Designator:Designator ::= ArraySection ;
Designator designator =
<BEGINNING>
a:array_section
{
yyValue = new ArraySection_Designator(a);
......@@ -4183,7 +4184,11 @@ DefinedBinaryOp defined_binary_op =
//// // R732
//// AssignmentStmt:ActionStmt ::= Variable Expr;
AssignmentStmt assignment_stmt =
v:variable EQUALS e:expr lnc:comment
o:object_name EQUALS e:expr lnc:comment
{
yyValue = new AssignmentStmt(new Opt<Label>(), lnc, new Designator_Variable(new ObjectName_Designator(o)),e);
}
/ v:variable EQUALS e:expr lnc:comment
{
yyValue = new AssignmentStmt(new Opt<Label>(), lnc, v,e);
}
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment