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

* version which also fails in 2.3.1

Browse Source 
git-svn-id: trunk@11479 -
This commit is contained in:
Jonas Maebe 2008-07-28 20:15:03 +00:00
parent 916e982519
commit 4ea13a420e
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
tests/webtbs/tw11619.pp
View File

@ -1,13 +1,17 @@
{ %norun }
{$inline on}
program TEST;
{$EXTENDEDSYNTAX OFF}
USES
DOS;
VAR
IO: WORD; { or LONGINT if wanted }
IO: WORD; { or LONGINT if wanted }
function test: word; inline;
begin
test:=1;
writeln(io);
end;
BEGIN
IO:=IORESULT;
IO:=test;
END.