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 / error3.pcat < prev    next >
Text File  |  2006-03-05  |  714b  |  25 lines
  1. (* This program is for testing the read-failed error *)
  2.  
  3. program is
  4.  
  5.   var i: integer := 0;
  6.   var x: real := 0.0;
  7.  
  8. begin
  9.  
  10.   write ("This program is for testing the read-failed error message.");
  11.   write ("  First, it will ask for an integer, then print it.");
  12.   write ("  Second, it will ask for a real, then print it.");
  13.   write ("  Please make an error entering one or the other to");
  14.   write ("  verify that an error message is produced and that the");
  15.   write ("  program subsequently aborts.");
  16.   write ("Please enter an integer...");
  17.   read (i);
  18.   write ("You entered...", i);
  19.   write ("Please enter a real...");
  20.   read (x);
  21.   write ("You entered...", x);
  22.   write ("Program continuing...and exiting.");
  23.  
  24. end;
  25.