diff --git a/tests/sparc/sparc.pas b/tests/sparc/sparc.pas
index 739b7a37a1..8ca56d81a3 100644
--- a/tests/sparc/sparc.pas
+++ b/tests/sparc/sparc.pas
@@ -1,20 +1,12 @@
+{ $Id$ }
 {$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;
-  BEGIN
-    Add:=a+b;
-  END;
 BEGIN
-  y:=0;
-  z:=0;
-  x:=1+y;
-  x:=Add(x,y);
 END.
+{
+  $Log$
+  Revision 1.5  2002-12-06 08:35:50  mazen
+  + added just to test RTL compilation
+
+}
diff --git a/tests/sparc/test.pas b/tests/sparc/test.pas
new file mode 100644
index 0000000000..739b7a37a1
--- /dev/null
+++ b/tests/sparc/test.pas
@@ -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;
+  BEGIN
+    Add:=a+b;
+  END;
+BEGIN
+  y:=0;
+  z:=0;
+  x:=1+y;
+  x:=Add(x,y);
+END.