t_bad_cyclic.mod 59 B

12345
  1. MODULE TCyc;
  2. TYPE A = A;
  3. VAR v : A;
  4. BEGIN v := v
  5. END TCyc.