scanner: avoid to raise exception.

1 files changed, 3 insertions, 3 deletions

diff --git a/src/vhdl/scanner.adb b/src/vhdl/scanner.adb
index 8a8150b89..9a2b488da 100644
--- a/src/vhdl/scanner.adb
+++ b/src/vhdl/scanner.adb
@@ -2017,9 +2017,9 @@ package body Scanner is
             return;
          when '#' =>
             Error_Msg_Scan ("'#' is used for based literals and "
-                            & "must be preceded by a base");
-            -- Cannot easily continue.
-            raise Compilation_Error;
+                              & "must be preceded by a base");
+            --  Skip.
+            Pos := Pos + 1;
          when '"' =>
             Scan_String;
             return;