M2compiler-V2/tests/t_call2.LST

Listing:

    1  MODULE T;
    2  VAR i : INTEGER;
    3  PROCEDURE P(VAR v : INTEGER);
    4  BEGIN
    5  END P;
    6  BEGIN
    7    P(1 + 2)
*****          ^ invalid procedure call
    8  END T.

    1 error