From 6daac6c7f86fa911bf230fe69419c540d9609c71 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 5 Jan 2019 20:49:57 +0100
Subject: parse_physical_type_definition: check secondary unit definition.

---
 src/vhdl/parse.adb | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/vhdl/parse.adb b/src/vhdl/parse.adb
index cacaff1df..874a5ae2d 100644
--- a/src/vhdl/parse.adb
+++ b/src/vhdl/parse.adb
@@ -2430,9 +2430,21 @@ package body Parse is
          --  Skip '='.
          Expect_Scan (Tok_Equal);
 
-         Multiplier := Parse_Primary;
-         Set_Physical_Literal (Unit, Multiplier);
+         case Current_Token is
+            when Tok_Integer
+              | Tok_Identifier
+              | Tok_Real =>
+               Multiplier := Parse_Primary;
+            when others =>
+               Error_Msg_Parse
+                 ("physical literal expected to define a secondary unit");
+               Skip_Until_Semi_Colon;
+               Multiplier := Null_Iir;
+         end case;
+
          if Multiplier /= Null_Iir then
+            Set_Physical_Literal (Unit, Multiplier);
+
             case Get_Kind (Multiplier) is
                when Iir_Kind_Simple_Name
                  | Iir_Kind_Selected_Name
-- 
cgit v1.2.3