[fpc-pascal]Compiler bug?

[Jesus Reyes]

Hi, the following code results in a error.

program compiler_bug_1;
{$mode objfpc}
var
  a,b: integer;
  c,d,e,f: boolean;

function Ok: boolean;
begin
        result := ( a = b )
                and c = d
                and e = f;
end;

var
        r: boolean;
begin
        a := 1;
        b := 2;
        c := false;
        d := true;
        e := false;
        f := true;

        r := Ok;
end.

here is the output


Free Pascal Compiler version 1.1 [2003/07/11] for i386
Copyright (c) 1993-2002 by Florian Klaempfl
Target OS: Linux for i386
Compiling tst.pas
tst.pas(15,2) Note: Local variable "r" is assigned but never used
tst.pas(11,7) Error: Asm: Duplicate label .L3
tst.pas(10,9) Error: Asm: Duplicate label .L4
tst.pas(25,1) Fatal: There were 2 errors compiling module, stopping

Regards.

Jesus Reyes A.

_________________________________________________________
Do You Yahoo!?
La mejor conexión a internet y 25MB extra a tu correo por $100 al mes. http://net.yahoo.com.mx