mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 16:19:33 +02:00
924f9466f0
+ added test (though due to the nature of the bug it needs to be interactive) git-svn-id: trunk@49587 -
18 lines
135 B
ObjectPascal
18 lines
135 B
ObjectPascal
unit uw26760;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
procedure Test;
|
|
|
|
implementation
|
|
|
|
procedure Test;
|
|
begin
|
|
Writeln('test'); a
|
|
end;
|
|
|
|
end.
|
|
|