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 / p11 / tst / goto1.pcat < prev    next >
Text File  |  2006-03-05  |  335b  |  25 lines
  1. (* This routine tests IRgoto, IRlabel, IRgotoiEQ *)
  2.  
  3. program is
  4.  
  5. var f: boolean := false;
  6.     t: boolean := true;
  7.  
  8. begin
  9.   if t then
  10.     write ("OK 1");
  11.   else
  12.     write ("ERROR 1");
  13.   end;
  14.   if f then
  15.     write ("ERROR 2");
  16.   else
  17.     write ("OK 2");
  18.   end;
  19.   if f=f then
  20.     write ("OK 3");
  21.   else
  22.     write ("ERROR 3");
  23.   end;
  24. end;
  25.