fpc/tests/webtbs/tw22561.pp
2012-08-05 15:36:44 +00:00

12 lines
82 B
ObjectPascal

{ %opt=-gt }
{ %norun }
procedure test;
var c: currency;
begin
end;
begin
end.