home *** CD-ROM | disk | FTP | other *** search
/ ftp.ee.pdx.edu / 2014.02.ftp.ee.pdx.edu.tar / ftp.ee.pdx.edu / pub / users / Harry / compilers / p10 / tst / misc.pcat < prev    next >
Text File  |  2006-02-17  |  806b  |  38 lines
  1. (* This program tests IR code generation for Boolean and pointer types*)
  2.  
  3. program is
  4. procedure foo (x,y,z: real; i,j: integer) : boolean is
  5.     var a: real := 0.0;
  6.         k: integer := 0;
  7.   begin
  8.     a := (x + y + z + h) * (x - (y - (z - h)));
  9.     k := (3 - i) * (j + g);
  10.     return b;
  11.   end;
  12.  
  13.   type MyArr is array of integer;
  14.        MyRec is record f1: integer; end;
  15.   var b: boolean := false;
  16.   var a: MyArr := nil;
  17.   var r: MyRec := nil;
  18.   var g: integer := 0;
  19.   var h: real := 0.0;
  20.  
  21. begin
  22.   b := false;
  23.   b := true;
  24.   a := nil;
  25.   r := nil;
  26.   b := foo (1.111, 2.222, 3.333, 4, 5);
  27.   b := false or false;
  28.   b := true or false;
  29.   b := false or true;
  30.   b := true or true;
  31.   b := false and false;
  32.   b := true and false;
  33.   b := false and true;
  34.   b := true and true;
  35.   b := not true;
  36.   b := not false;
  37. end;
  38.