t_bad_cyclic.LST 162 B

123456789101112
  1. Listing:
  2. 1 MODULE TCyc;
  3. 2 TYPE A = A;
  4. ***** ^ cyclical type definition
  5. 3 VAR v : A;
  6. 4 BEGIN v := v
  7. 5 END TCyc.
  8. 1 error