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