*** empty log message ***

tests/sparc/sparc.pas

@@ -0,0 +1,14 @@
+PROGRAM SparcTest;
+VAR
+  x,y:0..2 SHL 32-1; 
+  z:0..255;
+FUNCTION Add(a,b:Cardinal):Cardinal;
+  BEGIN
+    Add:=a+b;
+  END;
+BEGIN
+  y:=0;
+  z:=0;
+  x:=1+y;
+  x:=Add(x,y);
+END.

tests/sparc/system.pas

@@ -0,0 +1,10 @@
+UNIT {SPARC}System;
+INTERFACE
+CONST
+  MaxInt=2 SHL 15-1;
+TYPE
+  Integer=-MaxInt-1..MaxInt;
+VAR
+  Input,Output:Text;
+IMPLEMENTATION
+END.