From 7b59cea4fbf1efa72860216d6b1cd49af7109fe0 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 21 Mar 2018 06:18:37 +0100
Subject: sem: architecture is a nested declarative region only in vhdl-02

---
 src/vhdl/sem.adb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/vhdl')

diff --git a/src/vhdl/sem.adb b/src/vhdl/sem.adb
index a1283ff17..6c2810d53 100644
--- a/src/vhdl/sem.adb
+++ b/src/vhdl/sem.adb
@@ -198,11 +198,11 @@ package body Sem is
       --  considered to occur immediatly within the declarative region
       --  associated with the entity declaration corresponding to the given
       --  architecture body.
-      if Vhdl_Std >= Vhdl_02 then
+      if Vhdl_Std = Vhdl_02 then
          Open_Declarative_Region;
       end if;
       Sem_Block (Arch);
-      if Vhdl_Std >= Vhdl_02 then
+      if Vhdl_Std = Vhdl_02 then
          Close_Declarative_Region;
       end if;
 
-- 
cgit v1.2.3