@@ -1,5 +1,7 @@
+{$R-}
{ Basic Pascal principles gone done the drain... !!!! }
+
var
v: word;
w: shortint;
@@ -10,4 +12,4 @@ Begin
z:=32767;
w:=64000;
v:=-1;
-end.
+end.
@@ -1,3 +1,4 @@
{ I think this now occurs with most type casting... }
{ I think type casting is no longer considered?? }
@@ -8,4 +9,4 @@ Var
Begin
Sel:=word($7fffffff);
Sel2:=byte($7fff);
@@ -2,6 +2,7 @@ program test_set;
uses erroru;
procedure test;
@@ -58,4 +59,4 @@ procedure test;
begin
test;
@@ -1,3 +1,6 @@
+{ $R+ would give compile time errors }
Program bug0290;
var i,j : integer;
@@ -19,4 +22,4 @@ begin
Writeln('i and j are different !!!');
Halt(1);
end;