freepascal.compiler/tests/webtbs/uw38385b.pp

unit uw38385b;

{$mode objfpc}{$H+}

interface

uses
  uw38385a;

type
   IInterface1 = Interface(uw38385a.IInterface1)
    Procedure p2();
  End;

implementation

end.