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

   1: #include "included.h"
   2: 
   3: var includedP : OT;
   4: 
   5: procedure Blah;
   6: begin
   7:     includedP := 3;
   8: end;