paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 12:47:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

* new tests

Browse Source 
git-svn-id: trunk@3266 -
This commit is contained in:
peter 2006-04-18 06:52:47 +00:00
parent fe4ab79cd9
commit 41a894975d
3 changed files with 42 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -6786,6 +6786,8 @@ tests/webtbs/tw4902.pp -text
tests/webtbs/tw4922.pp svneol=native#text/plain
tests/webtbs/tw4950.pp svneol=native#text/plain
tests/webtbs/tw4999.pp svneol=native#text/plain
tests/webtbs/tw5001.pp svneol=native#text/plain
tests/webtbs/tw5023.pp svneol=native#text/plain
tests/webtbs/ub1873.pp svneol=native#text/plain
tests/webtbs/ub1883.pp svneol=native#text/plain
tests/webtbs/uw0555.pp svneol=native#text/plain

18
tests/webtbs/tw5001.pp Normal file
View File

@ -0,0 +1,18 @@
{ Source provided for Free Pascal Bug Report 5001 }
{ Submitted by "Vincent Snijders" on 2006-04-09 }
{ e-mail: vsnijders@quicknet.nl }
program Project1;
{$mode objfpc}{$H+}
resourcestring
s = 'test';
begin
writeln(s);
readln;
if length(s)=0
then halt(1);
if (s<>'test')
then halt(1);
end.

22
tests/webtbs/tw5023.pp Normal file
View File

@ -0,0 +1,22 @@
unit tw5023;
{$ifdef fpc}{$mode delphi}{$H+}{$endif}
interface
type
TScanLine = array of Integer;
implementation
procedure TestSwap(var A, B: Integer);
begin
// do something
end;
procedure Main(const ALine: TScanLine);
begin
TestSwap(ALine[0], ALine[1]); // <-- error here
end;
end.