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

+ test for web bug #2040

Browse Source
This commit is contained in:
pierre 2002-12-19 08:43:58 +00:00
parent 757ef5a2fd
commit 6deb59445c
2 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
tests/webtbs/tw2040.pp Normal file
View File

@ -0,0 +1,11 @@
{ Source provided for Free Pascal Bug Report 2040 }
{ Submitted by "Dimitry Sibiryakov" on 2002-07-16 }
{ e-mail: SD@topol.udm.net }
Program p1;
Uses
SysUtils, uw2040;
begin
WriteLn('No bug');
end.

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

@ -0,0 +1,18 @@
{ Source provided for Free Pascal Bug Report 2040 }
{ Submitted by "Dimitry Sibiryakov" on 2002-07-16 }
{ e-mail: SD@topol.udm.net }
Unit uw2040;
{$H+}
interface
Var
a: String; // make this string short and all is Ok
implementation
Procedure b(s: string); // Remove this proc and all is Ok too
begin
end;
end.