diff --git a/tests/test/tasm20.pp b/tests/test/tasm20.pp
index ff6a8b22c0..5f2f526e35 100644
--- a/tests/test/tasm20.pp
+++ b/tests/test/tasm20.pp
@@ -106,6 +106,11 @@ asm
   stosb
 end;
 
+procedure myfunc5(s: string); assembler;
+asm
+  mov actual_sp, sp
+end;
+
 procedure Error;
 begin
   Writeln('Error!');
@@ -128,5 +133,8 @@ begin
   res4 := myfunc4;
   if (res4 <> 'Tralala') and ((expect_sp - actual_sp) <> (2 + SizeOf(Pointer))) then
     Error;
+  myfunc5('Test');
+  if (expect_sp - actual_sp) <> (2 + SizeOf(Pointer)) then
+    Error;
   Writeln('Ok!');
 end.