p_bad_return3.mod 124 B

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