scanner: allow any characters in comment with vhdl02 or later.

1 files changed, 14 insertions, 1 deletions

diff --git a/src/vhdl/scanner.adb b/src/vhdl/scanner.adb
index d9039fcc6..43e33ae63 100644
--- a/src/vhdl/scanner.adb
+++ b/src/vhdl/scanner.adb
@@ -1452,7 +1452,20 @@ package body Scanner is
                  Source (Pos) /= VT and Source (Pos) /= FF and
                  Source (Pos) /= Files_Map.EOT
                loop
-                  if not Flags.Mb_Comment
+                  --  LRM93 13.1
+                  --  The only characters allowed in the text of a VHDL
+                  --  description are the graphic characters and the format
+                  --  effectors.
+
+                  --  LRM02 13.1 Character set
+                  --  The only characters allowed in the text of a VHDL
+                  --  description (except within comments -- see 13.8) [...]
+                  --
+                  --  LRM02 13.8 Comments
+                  --  A comment [...] may contain any character except the
+                  --  format effectors vertical tab, carriage return, line
+                  --  feed and form feed.
+                  if not (Flags.Mb_Comment or Vhdl_Std >= Vhdl_02)
                     and then Characters_Kind (Source (Pos)) = Invalid
                   then
                      Error_Msg_Scan ("invalid character, even in a comment");