freepascal.compiler/tests/webtbs/tw2789.pp

{ %opt=-Sen }

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.