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