Forráskód Böngészése

Add explicit disabling of range check to test to avoid failure depending on global make variable TEST_OPT

Pierre Muller 3 hónapja
szülő
commit
ecdea22992
1 módosított fájl, 4 hozzáadás és 0 törlés
  1. 4 0
      tests/tbs/tb0721.pp

+ 4 - 0
tests/tbs/tb0721.pp

@@ -1,4 +1,7 @@
 {$mode objfpc}{$H+}
+
+{$R-}
+
 type
   TmyRange = 1..10;
 var
@@ -7,4 +10,5 @@ var
 begin
   Mark := [5,11]; { don't throw a range check error here if range checking is off }
   for x in Mark do write(x,' IN Mark');
+  writeln;
 end.