paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 15:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* some bug files updated to show better the error

Browse Source
This commit is contained in:
florian 1998-08-05 22:10:59 +00:00
parent 0ecb4adcc5
commit 4a65db3317
3 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
bugs/bug0049.pp
View File

@ -2,5 +2,10 @@ type
days = (Mon,Tue,Wed,Thu,Fri,Sat,Sun);
weekend = Sat..Sun;
var
w : weekend;
begin
w:=5;
{$error the line before should produce an error }
end.

3
bugs/bug0090.pp
View File

@ -1,9 +1,10 @@
{$X+}
var
mystr : array[0..3] of char;
mystr : array[0..4] of char;
Begin
if mystr = #0#0#0#0 then
Begin
end;
mystr:=#0#0#0#0;
end.

4
bugs/bug0131.pp
View File

@ -1,4 +1,4 @@
type TA = Array[1..2,1..2,1..2,1..2,1..2,1..2,1..2,1..2,1..2,1..2] of Byte;
type TA = Array[1..2,1..2,1..2,1..2,1..2,1..2,1..3,1..3,1..3,1..3] of Byte;
var v,w: ta;
e: longint;
@ -6,6 +6,6 @@ var v,w: ta;
Begin
e :=1;
v[e,e,e,e,e,e,e,e,e,e] :=1;
w[e,e,e,e,e,e,e,e,e,v[e,e,e,e,e,e,e,e,e,e]] := v [e,e,e,e,e,e,e,e,e,e];
w[e,e,e,e,e,e,v[e,e,e,e,e,e,e,e,e,e],e,e,v[e,e,e,e,e,e,v[e,v[e,e,e,e,e,v[e,e,e,e,e,e,e,e,e,e],e,e,e,e],e,e,e,e,e,e,e,e],e,e,e]] := v [e,e,e,e,e,e,e,e,e,e];
writeln(w[e,e,e,e,e,e,e,e,e,e])
end.