paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 06:50:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

* new bug

Browse Source
This commit is contained in:
peter 2004-12-07 15:37:34 +00:00
parent c0a16133fb
commit 2fb0f62ee2
2 changed files with 182 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

158
tests/webtbs/tw3435.pp Normal file
View File

@ -0,0 +1,158 @@
{ Source provided for Free Pascal Bug Report 3435 }
{ Submitted by "Michalis Kamburelis" on 2004-12-06 }
{ e-mail: michalis@camelot.homedns.org }
{$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.

24
tests/webtbs/tw3441.pp Normal file
View File

@ -0,0 +1,24 @@
{ Source provided for Free Pascal Bug Report 3441 }
{ Submitted by "Alexey Barkovoy" on 2004-12-07 }
{ e-mail: clootie@ixbt.com }
{$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.