4.3BSD-Tahoe/usr/src/ucb/dbx/tests/pc/included.p

#include "included.h"

var includedP : OT;

procedure Blah;
begin
    includedP := 3;
end;