module f77aux;
exports
procedure f77ioerr(i:integer);
private
imports f77init from f77init;

procedure f77ioerr;
begin
writeln(curout^,'dummy f77ioerr');
end. { f77ioerr }