compiler bug

11 Oct 2001

      I am using gpc 20010924 with gcc 2.95.3 on UnixWare 7.1 and the following
code does not work.

Program Test(Input, Output);

Type
  Str10 = String(10);
  LetterType = (AA, BB, CC, DD);
  MyRec = record
    LetterName:   Array[LetterType] of Str10;
  end;
procedure SetIt(var aStr1: String; const aStr2: String);
begin
  aStr1:=aStr2;
end;

var
  ThisLetter: LetterType;
  ThisRec: MyRec;

begin
  for ThisLetter:=AA to DD do
    SetIt(ThisRec.LetterName[ThisLetter], Chr(Ord(ThisLetter)+Ord('A')));
  for ThisLetter:=AA to DD do
    WriteLn(ThisRec.letterName[ThisLetter]);
  for ThisLetter:=AA to DD do
    ThisRec.LetterName[ThisLetter]:=Chr(Ord(ThisLetter)+Ord('A'));
  for ThisLetter:=AA to DD do
    WriteLn(ThisRec.LetterName[ThisLetter]);
end.

The first set of WriteLn commands prints out  A and B and then spaces. The
second set prints out A to D as expected.

	Theo Carr-Brion

Theo Carr-Brion

tags

participants (7)