19 lines
349 B
C
19 lines
349 B
C
#include "libc/runtime/runtime.h"
|
|
#include "third_party/f2c/f2c.h"
|
|
#include "third_party/f2c/internal.h"
|
|
|
|
/**
|
|
* This gives the effect of
|
|
*
|
|
* subroutine exit(rc)
|
|
* integer*4 rc
|
|
* stop
|
|
* end
|
|
*
|
|
* with the added side effect of supplying rc as the program's exit code.
|
|
*/
|
|
void exit_(integer *rc) {
|
|
f_exit();
|
|
exit(*rc);
|
|
}
|