* this test is used to test writeLn for strigs

tests/sparc/test0003.pas

@@ -1,20 +1,8 @@
 {$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;
+CONST
+  s:STRING='Hello World!';
 BEGIN
-  y:=0;
-  z:=0;
-  x:=1+y;
-  x:=Add(x,y);
+  WriteLn(s);
 END.