t_bad_array.LST 217 B

12345678910111213
  1. Listing:
  2. 1 MODULE TBadArr;
  3. 2 VAR a, b : ARRAY [1 .. 10] OF INTEGER; x : INTEGER;
  4. 3 BEGIN
  5. 4 x := 1;
  6. 5 a := b
  7. ***** ^ not supported in this phase
  8. 6 END TBadArr.
  9. 1 error