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 / p2 / tst / teste1.pcat < prev    next >
Text File  |  2005-10-11  |  2KB  |  44 lines
  1. (* an out of range integer *) 11111111111111111111
  2. (* an OK integer *) 2147483647
  3. (* an out of range integer *) 2147483648
  4.  
  5. (* an very large real -- still acceptable though *) 
  6. 123456789012345678901234567890.0
  7.  
  8. (* an invalid string with tab in in it *) "abcde    g"
  9.  
  10. (* an overly long string *)
  11. "1234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456"
  12.  
  13. (* an ok string *)
  14. "123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345"
  15.  
  16. (* another ok string *)
  17. ""
  18.  
  19. (* an overly long identifier *)
  20. x123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345
  21.  
  22. (* an ok identifier *)
  23. x12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234
  24.  
  25. (* an ok line *)
  26. if x<7then y:=y+17
  27.  
  28. (* should lex as two tokens *)
  29. 123.x
  30.  
  31. (* a bad character (bell) *)
  32. 
  33.  
  34. xx(* an ok comment with an embedded    tab 
  35. and cr *)yy
  36.  
  37.  
  38. (* an unterminated string *)
  39. "abc
  40.  
  41. (* an unterminated comment 
  42.  
  43.  
  44.