diff --git a/tests/sparc/sparc.pas b/tests/sparc/sparc.pas
index 5285928937..d4318b5225 100644
--- a/tests/sparc/sparc.pas
+++ b/tests/sparc/sparc.pas
@@ -2,6 +2,10 @@ PROGRAM SparcTest;
 VAR
   x,y:Cardinal; 
   z:0..255;
+FUNCTION CopyMe(x:Cardinal):Cardinal;
+  BEGIN
+    CopyMe:=x;
+  END;
 FUNCTION Add(a,b:Cardinal):Cardinal;
   BEGIN
     Add:=a+b;