@@ -0,0 +1,20 @@
+{$UNITPATH ../../rtl/linux}
+{$INCLUDEPATH ../../rtl/unix;../../rtl/inc;../../rtl/unix;../../rtl/sparc}
+PROGRAM SparcTest;
+VAR
+ x,y:Cardinal;
+ z:0..255;
+FUNCTION CopyMe(x:Cardinal):Cardinal;
+ BEGIN
+ CopyMe:=x;
+ END;
+FUNCTION Add(a,b:Cardinal):Cardinal;
+ Add:=a+b;
+BEGIN
+ y:=0;
+ z:=0;
+ x:=1+y;
+ x:=Add(x,y);
+END.