mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-02-25 05:28:36 +01: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.
|
|
|