ISO Pascal reference manual

PROGRAM fail;
VAR a, b : ARRAY C1..5] of integer;
VAR c : ARRAY C2..6] of integer;
PROCEDURE unique( x : ARRAY[low..high : integer]
of integer;
y : ARRAY[small..big : integer]
of integer)
BEGIN
END;
PROCEDURE share(x, y : ARRAY[low..high : integer]
of integer)
BEGIN
END;
BEGIN
unique(b, a); {ok}
unique(a, c); {ok}
unique(c, c); {ok}
share(b, a); {OK a & b have the same bounds}
share(a, c); {not OK a & c have different bounds}
share(c, c); {OK - they must be the same}
END.
*ERROR 140 -- more values have been supplied than are required by
the array
Appendix A
This error is issued when the list of constants used to initialise an EXPORT
or STATIC array contains more values than the array has elements.
EXPORT and STATIC are extensions to standard Pascal.
PROGRAM fail;
STATIC a : ARRAY C1..3] OF char := 'a', 'b', 'c', 'd';
BEGIN
END.
*ERROR 141 -- PACK and UNPACK may only be used to move data between
arrays whose elements are of identical type
This message is issued when an attempt is made to use PACK or UNPACK
to assign values of an unsuitable type to the destination array.
Pascal Issue 1 95