diff --git a/tests/tbs/tb0419.pp b/tests/tbs/tb0419.pp
index 1b0b6f1419..42af8d0def 100644
--- a/tests/tbs/tb0419.pp
+++ b/tests/tbs/tb0419.pp
@@ -1,17 +1,20 @@
 
 var
   nc : integer;
+  test_w : word;
 
 procedure array_test(b: integer; parr: array of word; c: integer);cdecl;
 begin
   nc:=c;
+  test_w:=parr[2];
 end;
 
 
 begin
   nc:=5;
+  test_w:=$abcd;
   array_test(0,[1,2,3,4],56);
-  if nc<>56 then
+  if (nc<>56) or (test_w<>3) then
     begin
       Writeln('Wrong code generated');
     end;