t_bad_varbound.mod 105 B

12345
  1. MODULE TBadVarBound;
  2. VAR lo, hi : INTEGER;
  3. TYPE Bad = ARRAY [lo..hi] OF INTEGER;
  4. BEGIN
  5. END TBadVarBound.