tb0450.pp « tbs « tests « fpcsrc - fpc - [no description]

summary refs log tree commit diff

path: root/fpcsrc/tests/tbs/tb0450.pp

blob: 8552e25ff63b587de81b16503541115033a1cff7 (plain)


var
 i: single;
Begin
  case round(i) of
  0: WriteLn;
  1: WriteLn;
  end;
end.