Bug report - Gpc

24 Jun 1997


      Am 24.06.97 konnte ich meine Finger einfach nicht von der Tastatur
fernhalten... Folgendes kam dabei heraus:
Hallo Gpc!
Look at the source:
program Bug;
type tvect=record
                x,y,z:real;
             end;
operator + (a,b:tVect) r:tVect;
begin
  r.x:=a.x+b.x;
  r.y:=a.y+b.y;
  r.z:=a.z+b.z;
end;  {BTW - here it warns "return value not assigned" - GCC relict?}
type tNotOK=array[1..5] of tvect;
(*     tIsOk=array[1..5] of record p:tvect end;*)
var a,b:tvect;
    prob:tNotOk;
    r:tvect;
begin
  r:=a+b; {works fine}
  r:=b+prob[1]; {doesn't :-(}
  a:=prob[1];r:=a+b;     {Does}
end.
Chris
---
HomeBox : Chateau  - +49(0)8677 911940(V.34)  911941(ISDN)
*! New Address - C.Wendt@chateau.line.org !*
## CrossPoint v3.11 ##