fork download

copy

program Project1;
{$mode objfpc}{$H+}
 
type
 
  generic TFoo<T> = class
    function foo: T; virtual; abstract;
  end;
 
  TRec = record
    field: integer;
  end;
 
  TInter = specialize TFoo<TRec>;
 
  TBar = class(TInter)
    function foo: TRec; override;
  end;
 
function TBar.foo: TRec;
begin
  result.field := 0;
  exit(result);
end;
 
begin
end.

Free Pascal Compiler version 2.6.4+dfsg-6 [2015/05/31] for i386
Copyright (c) 1993-2014 by Florian Klaempfl and others
Target OS: Linux for i386
Compiling prog.pas
prog.pas(7,14) Error: Forward declaration not solved "TFoo$TRec.foo:<record type>;"
prog.pas(27,5) Fatal: There were 1 errors compiling module, stopping
Fatal: Compilation aborted
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)

Standard output is empty