* new bug

tests/webtbs/tw3435.pp

@@ -0,0 +1,158 @@
+{ Source provided for Free Pascal Bug Report 3435 }
+{ Submitted by "Michalis Kamburelis" on  2004-12-06 }
+{ e-mail: [email protected] }
+{$mode objfpc}
+
+type
+  TSomeLongLongLongTypeName = 0..1;
+
+  TSomeClass = class
+  public
+    constructor Create(
+      Param1 : TSomeLongLongLongTypeName;
+      Param2 : TSomeLongLongLongTypeName;
+      Param3 : TSomeLongLongLongTypeName;
+      Param4 : TSomeLongLongLongTypeName;
+      Param5 : TSomeLongLongLongTypeName;
+      Param6 : TSomeLongLongLongTypeName;
+      Param7 : TSomeLongLongLongTypeName;
+      Param8 : TSomeLongLongLongTypeName;
+      Param9 : TSomeLongLongLongTypeName;
+      Param10: TSomeLongLongLongTypeName;
+      Param11: TSomeLongLongLongTypeName;
+      Param12: TSomeLongLongLongTypeName;
+      Param13: TSomeLongLongLongTypeName;
+      Param14: TSomeLongLongLongTypeName;
+      Param15: TSomeLongLongLongTypeName;
+      Param16: TSomeLongLongLongTypeName;
+      Param17: TSomeLongLongLongTypeName;
+      Param18: TSomeLongLongLongTypeName;
+      Param19: TSomeLongLongLongTypeName);
+    constructor Create(
+      Param1 : TSomeLongLongLongTypeName;
+      Param2 : TSomeLongLongLongTypeName;
+      Param3 : TSomeLongLongLongTypeName;
+      Param4 : TSomeLongLongLongTypeName;
+      Param5 : TSomeLongLongLongTypeName;
+      Param6 : TSomeLongLongLongTypeName;
+      Param7 : TSomeLongLongLongTypeName;
+      Param8 : TSomeLongLongLongTypeName;
+      Param9 : TSomeLongLongLongTypeName;
+      Param10: TSomeLongLongLongTypeName;
+      Param11: TSomeLongLongLongTypeName;
+      Param12: TSomeLongLongLongTypeName;
+      Param13: TSomeLongLongLongTypeName;
+      Param14: TSomeLongLongLongTypeName;
+      Param15: TSomeLongLongLongTypeName;
+      Param16: TSomeLongLongLongTypeName;
+      Param17: TSomeLongLongLongTypeName;
+      Param18: TSomeLongLongLongTypeName;
+      Param19: TSomeLongLongLongTypeName;
+      Param20: TSomeLongLongLongTypeName);
+  end;
+
+constructor TSomeClass.Create(
+  Param1 : TSomeLongLongLongTypeName;
+  Param2 : TSomeLongLongLongTypeName;
+  Param3 : TSomeLongLongLongTypeName;
+  Param4 : TSomeLongLongLongTypeName;
+  Param5 : TSomeLongLongLongTypeName;
+  Param6 : TSomeLongLongLongTypeName;
+  Param7 : TSomeLongLongLongTypeName;
+  Param8 : TSomeLongLongLongTypeName;
+  Param9 : TSomeLongLongLongTypeName;
+  Param10: TSomeLongLongLongTypeName;
+  Param11: TSomeLongLongLongTypeName;
+  Param12: TSomeLongLongLongTypeName;
+  Param13: TSomeLongLongLongTypeName;
+  Param14: TSomeLongLongLongTypeName;
+  Param15: TSomeLongLongLongTypeName;
+  Param16: TSomeLongLongLongTypeName;
+  Param17: TSomeLongLongLongTypeName;
+  Param18: TSomeLongLongLongTypeName;
+  Param19: TSomeLongLongLongTypeName);
+
+  procedure Nested(
+  Param1 : TSomeLongLongLongTypeName;
+  Param2 : TSomeLongLongLongTypeName;
+  Param3 : TSomeLongLongLongTypeName;
+  Param4 : TSomeLongLongLongTypeName;
+  Param5 : TSomeLongLongLongTypeName;
+  Param6 : TSomeLongLongLongTypeName;
+  Param7 : TSomeLongLongLongTypeName;
+  Param8 : TSomeLongLongLongTypeName;
+  Param9 : TSomeLongLongLongTypeName;
+  Param10: TSomeLongLongLongTypeName;
+  Param11: TSomeLongLongLongTypeName;
+  Param12: TSomeLongLongLongTypeName;
+  Param13: TSomeLongLongLongTypeName;
+  Param14: TSomeLongLongLongTypeName;
+  Param15: TSomeLongLongLongTypeName;
+  Param16: TSomeLongLongLongTypeName;
+  Param17: TSomeLongLongLongTypeName;
+  Param18: TSomeLongLongLongTypeName;
+  Param19: TSomeLongLongLongTypeName;
+  Param20: TSomeLongLongLongTypeName);
+  begin
+  end;
+
+const
+  SomeConstant1: array[0..1]of Integer = (0, 1);
+  SomeConstant2: array[0..1]of Integer = (0, 1);
+begin
+end;
+
+constructor TSomeClass.Create(
+  Param1 : TSomeLongLongLongTypeName;
+  Param2 : TSomeLongLongLongTypeName;
+  Param3 : TSomeLongLongLongTypeName;
+  Param4 : TSomeLongLongLongTypeName;
+  Param5 : TSomeLongLongLongTypeName;
+  Param6 : TSomeLongLongLongTypeName;
+  Param7 : TSomeLongLongLongTypeName;
+  Param8 : TSomeLongLongLongTypeName;
+  Param9 : TSomeLongLongLongTypeName;
+  Param10: TSomeLongLongLongTypeName;
+  Param11: TSomeLongLongLongTypeName;
+  Param12: TSomeLongLongLongTypeName;
+  Param13: TSomeLongLongLongTypeName;
+  Param14: TSomeLongLongLongTypeName;
+  Param15: TSomeLongLongLongTypeName;
+  Param16: TSomeLongLongLongTypeName;
+  Param17: TSomeLongLongLongTypeName;
+  Param18: TSomeLongLongLongTypeName;
+  Param19: TSomeLongLongLongTypeName;
+  Param20: TSomeLongLongLongTypeName);
+const
+  SomeConstant1: array[0..1]of Integer = (0, 1);
+  SomeConstant2: array[0..1]of Integer = (0, 1);
+
+  procedure Nested(
+  Param1 : TSomeLongLongLongTypeName;
+  Param2 : TSomeLongLongLongTypeName;
+  Param3 : TSomeLongLongLongTypeName;
+  Param4 : TSomeLongLongLongTypeName;
+  Param5 : TSomeLongLongLongTypeName;
+  Param6 : TSomeLongLongLongTypeName;
+  Param7 : TSomeLongLongLongTypeName;
+  Param8 : TSomeLongLongLongTypeName;
+  Param9 : TSomeLongLongLongTypeName;
+  Param10: TSomeLongLongLongTypeName;
+  Param11: TSomeLongLongLongTypeName;
+  Param12: TSomeLongLongLongTypeName;
+  Param13: TSomeLongLongLongTypeName;
+  Param14: TSomeLongLongLongTypeName;
+  Param15: TSomeLongLongLongTypeName;
+  Param16: TSomeLongLongLongTypeName;
+  Param17: TSomeLongLongLongTypeName;
+  Param18: TSomeLongLongLongTypeName;
+  Param19: TSomeLongLongLongTypeName;
+  Param20: TSomeLongLongLongTypeName);
+  begin
+  end;
+
+begin
+end;
+
+begin
+end.

tests/webtbs/tw3441.pp

@@ -0,0 +1,24 @@
+{ Source provided for Free Pascal Bug Report 3441 }
+{ Submitted by "Alexey Barkovoy" on  2004-12-07 }
+{ e-mail: [email protected] }
+{$IFDEF FPC}{$MODE DELPHI}{$ENDIF}
+procedure ArrayOfCharsTest(const a: PChar; b: PWideChar);
+begin
+  Writeln(a, b^); // just do something
+end;
+
+procedure ArrayOfConstTest(const Args: array of const);
+begin
+  Writeln(High(Args)); // just do something
+end;
+
+var
+  a: array[0..5] of Char;
+  b: array[0..5] of WideChar;
+begin
+  a[0]:= 'a'; a[1]:= #0;
+  b[0]:= 'b'; b[1]:= #0;
+  ArrayOfCharsTest(a, b); // This compiles
+  ArrayOfConstTest(['a', a, b]); //_2.pas(19,29) Error: Incompatible types: got "Array[0..5] Of WideChar" expected "^Char"
+end.
+