paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 07:26:24 +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); days = (Mon,Tue,Wed,Thu,Fri,Sat,Sun);
weekend = Sat..Sun; weekend = Sat..Sun;
var
w : weekend;
begin begin
w:=5;
{$error the line before should produce an error }
end. end.

3
bugs/bug0090.pp
View File

@ -1,9 +1,10 @@
{$X+} {$X+}
var var
mystr : array[0..3] of char; mystr : array[0..4] of char;
Begin Begin
if mystr = #0#0#0#0 then if mystr = #0#0#0#0 then
Begin Begin
end; end;
mystr:=#0#0#0#0;
end. 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; var v,w: ta;
e: longint; e: longint;
@ -6,6 +6,6 @@ var v,w: ta;
Begin Begin
e :=1; e :=1;
v[e,e,e,e,e,e,e,e,e,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]) writeln(w[e,e,e,e,e,e,e,e,e,e])
end. end.