Google
 

Trailing-Edge - PDP-10 Archives - BB-P557A-BM_1983 - uetp/lib/pas1p.pas
There are no other files named pas1p.pas in the archive.
{<PASCAL.UETP>PAS1P.PAS.8, 27-Dec-82 10:16:40, Edit by PROBINSON}
{ Remove booleans; Fortran and Pascal are too different }
(*LANG:<KOHLBRENNER.TST>PAS1P.PAS.3 19-Aug-81 09:06:59, Edit by KOHLBRENNER *)
{Simple pascal to fortran test, link with pas1f.for}
(* COPYRIGHT (C) 1983 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. *)

program ts0168(output);
var

	int:integer;
	rel:real;
	dob:double;


procedure fortst(var int:integer;
		 var rel:real;
		 var dob:double); fortran;
begin
    int := 27;
    writeln(output,'start');
    rel := 2.15;
    dob := 2.12345D00;
    fortst(int,rel,dob);
    writeln(output,'after fortran call');
    if int <> 28 then writeln(output,'?? integer not passed correctly',int);
    if rel <> 3.15 then writeln(output,'?? real not passed correctly',rel);
    if dob <> 3.122324323D00 then writeln(output,'??double not passed correctly',dob);
    writeln(output,'end');
end.