Commit a6829da8 authored by yoogx's avatar yoogx
Browse files

* Allow for empty property sets

        For test AADL-CTS/02-Semantic/SC0009/AADL-11.1/02-pos in aadlqa
parent e8c26eaa
......@@ -1250,6 +1250,8 @@ package body Ocarina.FE_AADL.Parser.Properties is
end if;
exit when Token = T_End;
if Token /= T_Identifier then
DPE (PC_Property_Declaration, T_Identifier);
Skip_Tokens ((T_End, T_Semicolon));
Supports Markdown
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