t_ok_comments.LST 316 B

12345678910111213
  1. Listing:
  2. 1 MODULE Comments;
  3. 2 (* outer comment (* nested comment *) still outer *)
  4. 3 VAR x : INTEGER; (* trailing comment *)
  5. 4 BEGIN
  6. 5 x := 1; (* set x *)
  7. 6 x := x + 1 (* no semicolon before END is ok if single stat? here two stats need ";" *)
  8. 7 END Comments.
  9. 0 errors