freepascal.compiler/tests/webtbf/tw3480a.pp

{ %fail }

{ Source provided for Free Pascal Bug Report 3480 }
{ Submitted by "Danny Milosavljevic" on  2004-12-26 }
{ e-mail: [email protected] }
program z;

{$ifdef fpc}{$mode delphi}{$endif}

type
  IBla = interface
  { This is not allowed }
  class function X: Boolean;
  end;

end;

begin
end.