M2compiler-V1/tests/p_bad_return3.LST

Listing:

    1  MODULE PBadRet3;
    2  VAR ExitCode : INTEGER;
    3  PROCEDURE F : INTEGER;
    4  BEGIN
    5    RETURN
*****    ^ bad RETURN
    6  END F;
    7  BEGIN
    8    ExitCode := F()
    9  END PBadRet3.

    1 error