unit u4; {$savepcu false} {$include test.h} begin p1; end.