Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

(*LANG:<KOHLBRENNER.TST>PAS5.PAS.2 19-Aug-81 09:15:47, Edit by KOHLBRENNER *)
(* COPYRIGHT (C) 1983 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. *)
{$ W- }
{$ S- }
program pas5(output);
type
	pointer_int = ^integer;
	pointer_cah = ^char;
var
	intptr: pointer_int;
	cahptr: pointer_cah;

procedure breakproc(var intptr: pointer_int; var cahptr: pointer_cah);
begin
    writeln(output,'in procedure now');
    intptr^ := 10;
    cahptr^ := 'p';
end;

begin
    new(intptr);
    new(cahptr);
    breakproc(intptr,cahptr);
    if intptr^ <> 10 then writeln(output,'?? pointer not passed correctly');
    if cahptr^ <> 'p' then writeln(output,'?? pointer not passed correctly');
end.