--- gpc-options.h	Mon Mar 21 11:30:42 2005
+++ ./gpc-options.h	Fri May  5 13:55:25 2006
@@ -75,8 +75,7 @@
     "-ftruncate-strings",
     "-fexact-compare-strings",
     "-fio-checking",
-    "-frange-checking",
-    "-fobject-checking",
+    "-frange-and-object-checking",
     "-fno-pointer-checking",
     "-fno-pointer-checking-user-defined",
     "-fno-stack-checking",
--- /dev/null	Thu Jan  1 01:00:00 1970
+++ test/gale12a.pas	Fri May  5 13:51:44 2006
@@ -0,0 +1,27 @@
+program rangecheck1;
+
+uses GPC;
+
+var i: 1..5;
+
+procedure ExpectError;
+begin
+  if ExitCode = 0 then
+    WriteLn ('failed')
+  else
+    begin
+      WriteLn ('OK');
+      Halt (0) {!}
+    end
+end;
+
+begin
+  AtExit (ExpectError);
+         i:= 5;
+{$local R-}
+         i:= i+1;
+{$endlocal}
+         i:= 4;
+         i:= i+2;
+         WriteLn( 'i = ', i);
+end.
--- /dev/null	Thu Jan  1 01:00:00 1970
+++ test/gale12b.pas	Fri May  5 13:51:51 2006
@@ -0,0 +1,29 @@
+{ FLAG --range-checking }
+
+program rangecheck1;
+
+uses GPC;
+
+var i: 1..5;
+
+procedure ExpectError;
+begin
+  if ExitCode = 0 then
+    WriteLn ('failed')
+  else
+    begin
+      WriteLn ('OK');
+      Halt (0) {!}
+    end
+end;
+
+begin
+  AtExit (ExpectError);
+         i:= 5;
+{$local R-}
+         i:= i+1;
+{$endlocal}
+         i:= 4;
+         i:= i+2;
+         WriteLn( 'i = ', i);
+end.
--- /dev/null	Thu Jan  1 01:00:00 1970
+++ test/gale12c.pas	Fri May  5 13:53:11 2006
@@ -0,0 +1,29 @@
+{$R+}
+
+program rangecheck2;
+
+uses GPC;
+
+var i: 1..5;
+
+procedure ExpectError;
+begin
+  if ExitCode = 0 then
+    WriteLn ('failed')
+  else
+    begin
+      WriteLn ('OK');
+      Halt (0) {!}
+    end
+end;
+
+begin
+  AtExit (ExpectError);
+         i:= 5;
+{$local R-}
+         i:= i+1;
+{$endlocal}
+         i:= 4;
+         i:= i+2;
+         WriteLn( 'i = ', i);
+end.
--- /dev/null	Thu Jan  1 01:00:00 1970
+++ test/gale12d.pas	Fri May  5 13:53:15 2006
@@ -0,0 +1,31 @@
+{ FLAG --range-checking }
+
+{$R+}
+
+program rangecheck2;
+
+uses GPC;
+
+var i: 1..5;
+
+procedure ExpectError;
+begin
+  if ExitCode = 0 then
+    WriteLn ('failed')
+  else
+    begin
+      WriteLn ('OK');
+      Halt (0) {!}
+    end
+end;
+
+begin
+  AtExit (ExpectError);
+         i:= 5;
+{$local R-}
+         i:= i+1;
+{$endlocal}
+         i:= 4;
+         i:= i+2;
+         WriteLn( 'i = ', i);
+end.
--- /dev/null	Thu Jan  1 01:00:00 1970
+++ test/gale12e.pas	Fri May  5 13:53:19 2006
@@ -0,0 +1,13 @@
+{$R+}
+
+program rangecheck3;
+
+var i: 1..5;
+
+begin
+         i:= 5;
+{$local R-}
+         i:= i+1;
+{$endlocal}
+         if i = 6 then WriteLn ('OK') else WriteLn ('failed ', i)
+end.
--- /dev/null	Thu Jan  1 01:00:00 1970
+++ test/gale12f.pas	Fri May  5 13:53:43 2006
@@ -0,0 +1,15 @@
+{ FLAG --range-checking }
+
+{$R+}
+
+program rangecheck3;
+
+var i: 1..5;
+
+begin
+         i:= 5;
+{$local R-}
+         i:= i+1;
+{$endlocal}
+         if i = 6 then WriteLn ('OK') else WriteLn ('failed ', i)
+end.
--- /dev/null	Thu Jan  1 01:00:00 1970
+++ test/gale12g.pas	Fri May  5 13:56:00 2006
@@ -0,0 +1,25 @@
+{$R+}
+
+program rangecheck4;
+
+uses GPC;
+
+var i: 1..5;
+
+procedure ExpectError;
+begin
+  if ExitCode = 0 then
+    WriteLn ('failed')
+  else
+    begin
+      WriteLn ('OK');
+      Halt (0) {!}
+    end
+end;
+
+begin
+  AtExit (ExpectError);
+         i:= 4;
+         i:= i+2;
+         WriteLn( 'i = ', i);
+end.
--- /dev/null	Thu Jan  1 01:00:00 1970
+++ test/gale12h.pas	Fri May  5 13:56:04 2006
@@ -0,0 +1,27 @@
+{ FLAG --range-checking }
+
+{$R+}
+
+program rangecheck4;
+
+uses GPC;
+
+var i: 1..5;
+
+procedure ExpectError;
+begin
+  if ExitCode = 0 then
+    WriteLn ('failed')
+  else
+    begin
+      WriteLn ('OK');
+      Halt (0) {!}
+    end
+end;
+
+begin
+  AtExit (ExpectError);
+         i:= 4;
+         i:= i+2;
+         WriteLn( 'i = ', i);
+end.
--- /dev/null	Thu Jan  1 01:00:00 1970
+++ test/todo/gale12i.pas	Fri May  5 13:58:07 2006
@@ -0,0 +1,29 @@
+{$R-,range-checking}
+
+program rangecheck1;
+
+uses GPC;
+
+var i: 1..5;
+
+procedure ExpectError;
+begin
+  if ExitCode = 0 then
+    WriteLn ('failed')
+  else
+    begin
+      WriteLn ('OK');
+      Halt (0) {!}
+    end
+end;
+
+begin
+  AtExit (ExpectError);
+         i:= 5;
+{$local R-}
+         i:= i+1;
+{$endlocal}
+         i:= 4;
+         i:= i+2;
+         WriteLn( 'i = ', i);
+end.