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 / p6 / tst / unaryErr.pcat < prev    next >
Text File  |  2005-11-18  |  808b  |  43 lines
  1. (*  Test all error combinations involving unary operators.
  2. **
  3. **  Note, the type on the left-hand side of each assignment
  4. **  is type incorrect.  Hopefully, the error message
  5. **  associated with the assignment will be suppressed.
  6. **
  7. **  There should be 13 errors in this file.
  8. *)
  9.  
  10. program is
  11.  
  12. var i: integer := 0;
  13.     f: real := 0.0;
  14.     b: boolean := false;
  15.     a: MyArr := nil;
  16.     r: MyRec := nil;
  17.  
  18. type MyArr is array of integer;
  19.      MyRec is record f1: integer; end;
  20.  
  21. begin
  22.  
  23. (* Test error combinations involving unary minus *)
  24.   b := - b;
  25.   b := - a;
  26.   b := - r;
  27.   b := - nil;
  28.  
  29. (* Test error combinations involving unary plus *)
  30.   b := + b;
  31.   b := + a;
  32.   b := + r;
  33.   b := + nil;
  34.  
  35. (* Test error combinations involving NOT *)
  36.   i := not i;
  37.   i := not f;
  38.   i := not a;
  39.   i := not r;
  40.   i := not nil;
  41. end;
  42.  
  43.