From f77a204269806cdd9bedcd36fb9bceeb21a605ec Mon Sep 17 00:00:00 2001
From: Johannes Mey <johannes.mey@tu-dresden.de>
Date: Wed, 8 Mar 2017 17:09:14 +0100
Subject: [PATCH] improve parsing of ObjectName
---
Parser/spec/Fortran2008.rats | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/Parser/spec/Fortran2008.rats b/Parser/spec/Fortran2008.rats
index 5d29286..eb189fc 100644
--- a/Parser/spec/Fortran2008.rats
+++ b/Parser/spec/Fortran2008.rats
@@ -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);
}
--
GitLab