mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-03 15:17:32 +01: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
|
bug0125.pp wrong colors with DOS CRT unit
|
||||||
bug0127.pp problem with cdecl in implementation part
|
bug0127.pp problem with cdecl in implementation part
|
||||||
bug0130.pp in [..#255] problem
|
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