m_bad_mactual.LST 310 B

123456789101112131415161718
  1. Listing:
  2. 1 MODULE MBadMActual;
  3. 2 MODULE M EXPORT Add;
  4. 3 PROCEDURE Add(x : INTEGER);
  5. 4 BEGIN
  6. 5 END Add;
  7. 6 END M;
  8. 7 VAR ExitCode : INTEGER;
  9. 8 BEGIN
  10. 9 M.Add("s");
  11. ***** ^ invalid procedure call
  12. 10 ExitCode := 0
  13. 11 END MBadMActual.
  14. 1 error