mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 20:10:49 +02:00
* 3 new bugs
This commit is contained in:
parent
8244866fca
commit
b5d2ddd78d
11
bugs/bug0131.pp
Normal file
11
bugs/bug0131.pp
Normal file
@ -0,0 +1,11 @@
|
||||
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;
|
||||
|
||||
var v,w: ta;
|
||||
e: longint;
|
||||
|
||||
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];
|
||||
writeln(w[e,e,e,e,e,e,e,e,e,e])
|
||||
end.
|
12
bugs/bug0132.pp
Normal file
12
bugs/bug0132.pp
Normal file
@ -0,0 +1,12 @@
|
||||
type
|
||||
|
||||
p=^p;
|
||||
p2 = ^p2;
|
||||
|
||||
var a:p;
|
||||
a2:p2;
|
||||
|
||||
begin
|
||||
a:=a2;
|
||||
a:=a2^;
|
||||
end.
|
14
bugs/bug0133.pp
Normal file
14
bugs/bug0133.pp
Normal file
@ -0,0 +1,14 @@
|
||||
type
|
||||
t=object
|
||||
f : longint;
|
||||
procedure p;
|
||||
g : longint; { Not allowed in BP7 }
|
||||
end;
|
||||
|
||||
procedure t.p;
|
||||
begin
|
||||
end;
|
||||
|
||||
begin
|
||||
end.
|
||||
|
@ -177,4 +177,6 @@ bug0124.pp problem with -Rintel switch and indexing (whatever the order)
|
||||
bug0125.pp wrong colors with DOS CRT unit
|
||||
bug0127.pp problem with cdecl in implementation part
|
||||
bug0130.pp in [..#255] problem
|
||||
|
||||
bug0131.pp internal error 10 with highdimension arrays
|
||||
bug0132.pp segmentation fault with type loop
|
||||
bug0133.pp object type declaration not 100% compatibile with TP7
|
||||
|
Loading…
Reference in New Issue
Block a user