fpcsrc/tests/tbs/tb0097.pp


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

{ Old file: tbs0115.pp }
{ missing writeln for comp data type                    OK 0.99.6 (FK) }

var
   c : comp;

begin
   c:=1234;
   writeln(c);
   {readln(c);}
   c:=-258674;
   writeln(c);
end.