* increase comment nesting level when "(*" is followed by another '*'

    (mantis #32019)

git-svn-id: trunk@37935 -

.gitattributes

@@ -15901,6 +15901,7 @@ tests/webtbs/tw3185.pp svneol=native#text/plain
 tests/webtbs/tw3190.pp svneol=native#text/plain
 tests/webtbs/tw31945.pp svneol=native#text/pascal
 tests/webtbs/tw3197.pp svneol=native#text/plain
+tests/webtbs/tw32019.pp svneol=native#text/plain
 tests/webtbs/tw32040.pp svneol=native#text/pascal
 tests/webtbs/tw32043.pp svneol=native#text/pascal
 tests/webtbs/tw32046.pp svneol=native#text/plain

compiler/scanner.pas

@@ -4548,7 +4548,11 @@ type
                    if found=3 then
                     found:=4
                    else
-                    found:=1;
+                    begin
+                      if found=4 then
+                        inc_comment_level;
+                      found:=1;
+                    end;
                  end;
                ')' :
                  begin

tests/webtbs/tw32019.pp

@@ -0,0 +1,13 @@
+{ %fail }
+
+program Project1;
+
+{$ModeSwitch nestedcomments}
+
+(*
+(***)
+
+begin
+  writeln('see');
+  readln;
+end.