From ff952bb0f229f2d3256c83da3a4ac2f6735fdd14 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 1 Jun 2022 07:57:54 +0200
Subject: vhdl-scanner: adjust assertion.  For #2070

---
 src/vhdl/vhdl-scanner.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/vhdl/vhdl-scanner.adb b/src/vhdl/vhdl-scanner.adb
index 0527cd131..a6c7b64dd 100644
--- a/src/vhdl/vhdl-scanner.adb
+++ b/src/vhdl/vhdl-scanner.adb
@@ -771,7 +771,7 @@ package body Vhdl.Scanner is
          end loop;
       end Add_One_To_Carries;
    begin
-      pragma Assert (Source (Pos) = '"');
+      pragma Assert (Source (Pos) = '"' or Source (Pos) = '%');
       Pos := Pos + 1;
       Length := 0;
       Id := Create_String8;
-- 
cgit v1.2.3