diff --git a/tests/test/tstack.pp b/tests/test/tstack.pp
index 52fced9fae..ab9dff1745 100644
--- a/tests/test/tstack.pp
+++ b/tests/test/tstack.pp
@@ -1,3 +1,8 @@
+{$ifdef CPUAVR}
+{ avr does not support an exitproc }
+begin
+end.
+{$else CPUAVR}
 {$S+}
 
 { Program to check that an infinite recursion
@@ -60,3 +65,4 @@ begin
   exitproc:=@stack_check_exit;
   x:=inf_rec(5000);
 end.
+{$endif CPUAVR}