+ support {$message info ...}, resolves #30654

+ test

git-svn-id: trunk@38346 -

.gitattributes

@@ -15885,6 +15885,7 @@ tests/webtbs/tw30626b.pp svneol=native#text/pascal
 tests/webtbs/tw3063.pp svneol=native#text/plain
 tests/webtbs/tw30639.pp svneol=native#text/plain
 tests/webtbs/tw3064.pp svneol=native#text/plain
+tests/webtbs/tw30654.pp svneol=native#text/pascal
 tests/webtbs/tw30666.pp svneol=native#text/plain
 tests/webtbs/tw30706.pp svneol=native#text/plain
 tests/webtbs/tw3073.pp svneol=native#text/plain

compiler/scandir.pas

@@ -912,6 +912,9 @@ unit scandir;
             else
               if (hs='NOTE') then
                 w:=scan_n_user_defined
+            else
+              if (hs='INFO') then
+                w:=scan_i_user_defined
             else
               Message1(scan_w_illegal_directive,hs);
           end;

tests/webtbs/tw30654.pp

@@ -0,0 +1,3 @@
+{$message info 'Test'}
+begin
+end.