* restored overwritten test

tests/tbs/tb0712.pp

@@ -1,9 +1,28 @@
-{$mode objfpc}
+var
+  yy,res : longint;
+begin
+  res:=0;
+  yy:=random(0)+1980;
+  If (yy<1980) or (yy>2099) then
+    res:=1;
+  if res<>0 then
+    halt(res);
 
-{$Q+}
-uses
-  Sysutils;
+  yy:=random(0)+2099;
+  If (yy<1980) or (yy>2099) then
+    res:=2;
+  if res<>0 then
+    halt(res);
 
-begin
-  writeln(Int64.MinValue+Int64(Random(0)));
+  yy:=random(0)+1980;
+  If (yy<=1979) or (yy>2099) then
+    res:=3;
+  if res<>0 then
+    halt(res);
+
+  yy:=random(0)+2099;
+  If (yy<1979) or (yy>=2100) then
+    res:=4;
+  if res<>0 then
+    halt(res);
 end.

tests/tbs/tb0713.pp

@@ -0,0 +1,9 @@
+{$mode objfpc}
+
+{$Q+}
+uses
+  Sysutils;
+
+begin
+  writeln(Int64.MinValue+Int64(Random(0)));
+end.