fpcsrc/tests/webtbs/tw2789.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

{ %opt=-Sen -vn }

Var B:Longint;

Procedure Stuff;
Var I:Longint;
Begin
   Case B Of
      0:For I:=1 To 100 Do WriteLn;
   End;
End;

Begin
   B:=0;
   Stuff;
End.