fpc/tests/test/utasout.pp
2002-06-01 19:08:52 +00:00

28 lines
272 B
ObjectPascal

{ requires nasm }
{$ifdef win32}
{$output_format nasmwin32}
{$endif win32}
{$ifdef go32v2}
{$output_format nasmcoff}
{$endif go32v2}
{$ifdef unix}
{$output_format nasmelf}
{$endif unix}
unit utasout;
interface
var
x : longint;
implementation
begin
x:=2;
end.