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 / goto2.pcat < prev    next >
Text File  |  2006-03-05  |  2KB  |  104 lines
  1. (* This routine tests integer conditional gotos. *)
  2.  
  3. program is
  4.  
  5. var i: integer := 1;
  6.     j: integer := 2;
  7.  
  8. begin
  9.   write ("SHOULD PRINT ALL OKS AFTER EACH TEST:");
  10.  
  11. write ("TESTING =...");
  12.   if i=j then
  13.     write ("   ERROR");
  14.   else
  15.     write ("   OK");
  16.   end;
  17.   if i=i then
  18.     write ("   OK");
  19.   else
  20.     write ("   ERROR");
  21.   end;
  22.  
  23. write ("TESTING <>...");
  24.   if i<>j then
  25.     write ("   OK");
  26.   else
  27.     write ("   ERROR");
  28.   end;
  29.   if i<>i then
  30.     write ("   ERROR");
  31.   else
  32.     write ("   OK");
  33.   end;
  34.  
  35. write ("TESTING <...");
  36.   if i<i then
  37.     write ("   ERROR");
  38.   else
  39.     write ("   OK");
  40.   end;
  41.   if j<i then
  42.     write ("   ERROR");
  43.   else
  44.     write ("   OK");
  45.   end;
  46.   if i<j then
  47.     write ("   OK");
  48.   else
  49.     write ("   ERROR");
  50.   end;
  51.  
  52. write ("TESTING >...");
  53.   if i>i then
  54.     write ("   ERROR");
  55.   else
  56.     write ("   OK");
  57.   end;
  58.   if j>i then
  59.     write ("   OK");
  60.   else
  61.     write ("   ERROR");
  62.   end;
  63.   if i>j then
  64.     write ("   ERROR");
  65.   else
  66.     write ("   OK");
  67.   end;
  68.  
  69. write ("TESTING <=...");
  70.   if i<=i then
  71.     write ("   OK");
  72.   else
  73.     write ("   ERROR");
  74.   end;
  75.   if j<=i then
  76.     write ("   ERROR");
  77.   else
  78.     write ("   OK");
  79.   end;
  80.   if i<=j then
  81.     write ("   OK");
  82.   else
  83.     write ("   ERROR");
  84.   end;
  85.  
  86. write ("TESTING >=...");
  87.   if i>=i then
  88.     write ("   OK");
  89.   else
  90.     write ("   ERROR");
  91.   end;
  92.   if j>=i then
  93.     write ("   OK");
  94.   else
  95.     write ("   ERROR");
  96.   end;
  97.   if i>=j then
  98.     write ("   ERROR");
  99.   else
  100.     write ("   OK");
  101.   end;
  102.  
  103. end;
  104.