fpc/tests/webtbs/tw3137.pp
2004-08-29 11:58:39 +00:00

19 lines
278 B
ObjectPascal

{ Source provided for Free Pascal Bug Report 3137 }
{ Submitted by "Vincent Snijders" on 2004-06-04 }
{ e-mail: vslist@zonnet.nl }
unit tw3137;
{$ifdef fpc}{$mode delphi}{$endif}
interface
function a: integer; assembler;
implementation
function a: integer;
asm
end;
end.