4.4BSD/usr/src/old/dbx/tests/pc/included.p

#include "included.h"

var includedP : OT;

procedure Blah;
begin
    includedP := 3;
end;