RosettaCodeData/Task/Exceptions/Modula-3/exceptions-2.mod3

PROCEDURE Foo() RAISES { EndOfFile } =
  ...
  RAISE EndOfFile;
  ...