fpc/tests/webtbs/uvmt_a.pp
2011-12-19 17:40:02 +00:00

21 lines
195 B
ObjectPascal

{ OPT=-gw }
unit uvmt_a;
{$mode objfpc}
interface
{$ifndef VAR_ONLY}
type
tclass = class (tobject)
x : integer;
end;
{$endif ndef VAR_ONLY}
var
int : longint;
implementation
end.