From 1b6ba4e94ce97cd1be347bfcb32508da535d7c64 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 28 Nov 2018 20:12:37 +0100
Subject: parser: strenghten.

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

(limited to 'src/vhdl')

diff --git a/src/vhdl/parse.adb b/src/vhdl/parse.adb
index 77fd71604..a6b3bc88d 100644
--- a/src/vhdl/parse.adb
+++ b/src/vhdl/parse.adb
@@ -356,8 +356,12 @@ package body Parse is
       Def : Iir;
    begin
       Def := Create_Iir (Iir_Kind_Subtype_Definition);
-      Location_Copy (Def, Type_Mark);
-      Set_Subtype_Type_Mark (Def, Type_Mark);
+      if Type_Mark /= Null_Iir then
+         Location_Copy (Def, Type_Mark);
+         Set_Subtype_Type_Mark (Def, Type_Mark);
+      else
+         Set_Location (Def);
+      end if;
       Set_Range_Constraint (Def, Parse_Range_Constraint);
       Set_Resolution_Indication (Def, Resolution_Indication);
       Set_Tolerance (Def, Parse_Tolerance_Aspect_Opt);
-- 
cgit v1.2.3