ISO Pascal reference manual

test(r.x); (r.x is a case selector}
END.
*ERROR 127 -- PROGRAMs may not export procedures or functions
A compilation unit that starts with PROGRAM is not permitted to define
EXPORT PROCEDUREs or EXPORT FUNCTIONS, however, it may
export variables. This is an extension to standard Pascal.
PROGRAM fail;
EXPORT PROCEDURE thing;
BEGIN
END;
BEGIN
END.
thing;
*ERROR 128 -- a procedure identifier is required here
In the definition of a procedure the name of the procedure must
immediately follow the word PROCEDURE.
PROGRAM fail;
PROCEDURE; BEGIN
END;
BEGIN
END.
*ERROR 129 -- a function identifier is required here
In the definition of a function the name of the function must immediately
follow the word FUNCTION.
PROGRAM fail;
FUNCTION:integer; BEGIN
END;
BEGIN
END.
90 Pascal Issue 1