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 #include <stdlib.h>
  16 #ifdef __cplusplus
  17 extern "C" {
  18 #endif
  19 extern void f_exit(void);
  20
  21  void
  22 G77_exit_0 (integer *rc)
  23 {
  24 #ifdef NO_ONEXIT
  25         f_exit();
  26 #endif
  27         exit(*rc);
  28         }
  29 #ifdef __cplusplus
  30 }
  31 #endif