contrib/libf2c/libF77/exit_.c

   1 /* This gives the effect of
   2
   3         subroutine exit(rc)
   4         integer*4 rc
   5         stop
   6         end
   7
   8  * with the added side effect of supplying rc as the program's exit code.
   9  */
  10
  11 #include "f2c.h"
  12 #undef abs
  13 #undef min
  14 #undef max
  15 #ifndef KR_headers
  16 #include <stdlib.h>
  17 #ifdef __cplusplus
  18 extern "C" {
  19 #endif
  20 extern void f_exit(void);
  21 #endif
  22
  23  void
  24 #ifdef KR_headers
  25 G77_exit_0 (rc) integer *rc;
  26 #else
  27 G77_exit_0 (integer *rc)
  28 #endif
  29 {
  30 #ifdef NO_ONEXIT
  31         f_exit();
  32 #endif
  33         exit(*rc);
  34         }
  35 #ifdef __cplusplus
  36 }
  37 #endif