From 4db4532626c97a24037dd855e8044ad0639e3a71 Mon Sep 17 00:00:00 2001
From: Ondrej Ille <ondrej.ille@gmail.com>
Date: Sat, 10 Apr 2021 08:55:11 +0200
Subject: src: Allow case generate only in VHDL 2008.

---
 src/vhdl/vhdl-parse.adb | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/vhdl/vhdl-parse.adb')

diff --git a/src/vhdl/vhdl-parse.adb b/src/vhdl/vhdl-parse.adb
index 696dc43a2..d3cc8e0b2 100644
--- a/src/vhdl/vhdl-parse.adb
+++ b/src/vhdl/vhdl-parse.adb
@@ -10201,6 +10201,7 @@ package body Vhdl.Parse is
                Stmt := Parse_If_Generate_Statement (Label, Loc);
             when Tok_Case =>
                Postponed_Not_Allowed;
+               Check_Vhdl_At_Least_2008 ("case generate");
                Stmt := Parse_Case_Generate_Statement (Label, Loc);
             when Tok_Component
               | Tok_Entity
-- 
cgit v1.2.3