diff --git a/tests/webtbs/tw11619.pp b/tests/webtbs/tw11619.pp
index 00ac01f40f..11d1a5ad7e 100644
--- a/tests/webtbs/tw11619.pp
+++ b/tests/webtbs/tw11619.pp
@@ -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.
-
-