* version which also fails in 2.3.1

git-svn-id: trunk@11479 -

tests/webtbs/tw11619.pp

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