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