From 0f637434a3864d50834572905a05405940214435 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 19 Nov 2017 18:05:22 +0000
Subject: [PATCH] * disable test on avr

git-svn-id: trunk@37609 -
---
 tests/test/tstack.pp | 6 ++++++
 1 file changed, 6 insertions(+)

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}