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 / forOK.pcat < prev    next >
Text File  |  2005-11-18  |  264b  |  18 lines
  1. (* Test FOR statement checking 
  2. **
  3. ** It contains no errors.
  4. *)
  5.  
  6. program is
  7.   var i: integer := 0;
  8.   var a: real := 0.0;
  9.   var b: boolean := false;
  10. begin
  11.   for i := 1 to 10 by 2 do
  12.     write ("hello");
  13.   end;
  14.   for i := 1 to 10 do
  15.     write ("hello");
  16.   end;
  17. end;
  18.