* new bugs

tests/webtbs/tw2196.pp

@@ -0,0 +1,29 @@
+{ Source provided for Free Pascal Bug Report 2196 }
+{ Submitted by "Andrew Johnson" on  2002-10-22 }
+{ e-mail: [email protected] }
+Program bugtest;
+
+{$Mode ObjFPC}
+{ $Define bug_workaround}
+uses classes;
+
+type
+  TSomeClass = Class
+  private
+    FTestString : AnsiString;
+  public
+    Property  TestString : AnsiString read FTestString write FTestString;
+  end;
+
+var
+  TestClass : TSomeClass;
+begin
+  TestClass := TSomeClass.Create;
+  {$IfDef bug_workaround}
+  TestClass.TestString := '' + TestClass.TestString + 'Whatever';
+  {$Else}
+  TestClass.TestString :=  TestClass.TestString + 'Whatever';
+  {$EndIF}
+  writeln(TestClass.TestString);
+  TestClass.Free;
+end.

tests/webtbs/tw2214.pp

@@ -0,0 +1,19 @@
+{ Source provided for Free Pascal Bug Report 2214 }
+{ Submitted by "Marco" on  2002-11-01 }
+{ e-mail: [email protected] }
+
+{$mode objfpc}
+
+Uses SysUtils;
+
+function LongLatToDMS(longlat : longint; hemis : string):string;
+Var ldeg, lmin, lsec, lmsec : extended;
+    hemi                    : char;
+begin
+  result := Format('%d %02d %02d.%03d',
+               [round(ldeg), round(lmin), round(lsec),
+                round(lmsec)]) + ' ' + hemi;
+end;
+
+begin
+end.