1 files changed, 1 insertions, 1 deletions
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;