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 / ifErr.pcat < prev    next >
Text File  |  2005-11-18  |  373b  |  19 lines
  1. (* Check conditional expr in IF, ELSIF, and WHILE.
  2. **
  3. ** It contains 3 errors.
  4. *)
  5.  
  6. program is begin
  7.   if 12345 then            (***  Error here ***)
  8.     write ("hello");
  9.   end;
  10.   if true then
  11.     write ("hello");
  12.   elseif 3.1415 then        (***  Error here ***)
  13.     write ("hello");
  14.   end;
  15.   while 123.456 do         (***  Error here ***)
  16.     write ("hello");
  17.   end;
  18. end;
  19.