* new tests

tests/tbf/tb0110.pp

@@ -0,0 +1,17 @@
+{ %FAIL }
+
+{$mode delphi}
+
+var
+  { The next line should give an error as it's to big to allocate }
+  a: array [ Integer ] of Integer;
+  i: Integer;
+
+begin
+
+  for i := 0 to 1000 do begin
+    a [ i ] := i
+  end { for i }
+
+; writeln ( a [ 1000 ] )
+end.

tests/tbs/tb0378.pp

@@ -0,0 +1,8 @@
+{$mode delphi}
+
+procedure p();
+begin
+end;
+
+begin
+end.

tests/tbs/tb0379.pp

@@ -0,0 +1,13 @@
+{$mode delphi}
+
+var
+  i: Int64;
+
+begin
+
+  for i := 1 to 10 do begin
+    write ( '*' )
+  end { for i }
+
+; writeln
+end.

tests/tbs/tb0380.pp

@@ -0,0 +1,8 @@
+uses ub0380;
+procedure p1(s:string);overload;
+begin
+end;
+
+begin
+  p1(1);
+end.

tests/tbs/ub0380.pp

@@ -0,0 +1,8 @@
+unit ub0380;
+interface
+procedure p1(i:integer);overload;
+implementation
+procedure p1(i:integer);overload;
+begin
+end;
+end.