+ test for commit e1297e085928a274220a6d5d6da7d8e4f7a2dee2

tests/tbs/tb0712.pp

@@ -0,0 +1,22 @@
+var
+  yy,res : longint;
+begin
+  res:=0;
+  yy:=random(0)+1980;
+  If (yy<1980) or (yy>2099) then
+    res:=1;
+
+  yy:=random(0)+2099;
+  If (yy<1980) or (yy>2099) then
+    res:=2;
+
+  yy:=random(0)+1980;
+  If (yy<=1979) or (yy>2099) then
+    res:=3;
+
+  yy:=random(0)+2099;
+  If (yy<1979) or (yy>=2100) then
+    res:=4;
+
+  halt(res);
+end.