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

* unreachable code warning

Browse Source
This commit is contained in:
peter 2005-01-16 10:50:08 +00:00
parent 11c8f72e53
commit 3a9740ab12
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
tests/webtbf/tw3553.pp Normal file
View File

@ -0,0 +1,23 @@
{ %fail }
{ %opt=-Sew }
{ Source provided for Free Pascal Bug Report 3553 }
{ Submitted by "Naj Kejah" on 2005-01-15 }
{ e-mail: universario@hotmail.com }
var K : integer;
BEGIN
while FALSE do
K:=2;{ NO warning "unreachable code" from User.txt }
if FALSE then
K:=2
else
K:=3;
if TRUE then
K:=2
else
K:=3;
END.