paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-04 06:02:07 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ hint directive testing

Browse Source
This commit is contained in:
carl 2002-11-30 18:46:56 +00:00
parent 4cff8c3477
commit d38880fb14
2 changed files with 51 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/tbs/tb0426.pp Normal file
View File

@ -0,0 +1,12 @@
{ %VERSION=1.1 }
uses ub0426;
Begin
myroutine;
myroutine2;
myroutine3;
z:=0;
end.

39
tests/tbs/ub0426.pp Normal file
View File

@ -0,0 +1,39 @@
{ %VERSION=1.1 }
{$MODE OBJFPC}
Unit ub0426;
interface
var
z: integer platform;
procedure myroutine; platform;
procedure myroutine2; deprecated;
procedure myroutine3; unimplemented;
implementation
procedure myroutine; platform;
begin
end;
procedure myroutine2; deprecated;
begin
end;
procedure myroutine3;{$ifdef fpc}unimplemented;{$endif}
begin
end;
Begin
myroutine;
myroutine2;
myroutine3;
z:=0;
end.