paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 05:59:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* make it a procedure

Browse Source
This commit is contained in:
peter 2003-10-08 18:47:24 +00:00
parent 0210c33f15
commit 6e553bfafd
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/webtbf/tw2209.pp
View File

@ -4,9 +4,9 @@
{ Source provided for Free Pascal Bug Report 2209 }
{ Submitted by "Erik Scheffers" on 2002-10-30 }
{ e-mail: eriks@win.tue.nl }
{$mode delphi}
program case_bug;
{$ifdef fpc}{$mode delphi}{$endif}
procedure case_bug;
var uninitialized : integer;
begin
@ -14,5 +14,9 @@ begin
1 : writeln('it''s a one!');
else writeln('it''s something else...');
end
end;
begin
end.