libf2c/libF77/abort_.c

   1 #include <stdio.h>
   2 #include "f2c.h"
   3
   4 #ifdef KR_headers
   5 extern VOID sig_die();
   6
   7 int G77_abort_0 ()
   8 #else
   9 extern void sig_die(char*,int);
  10
  11 int G77_abort_0 (void)
  12 #endif
  13 {
  14 sig_die("Fortran abort routine called", 1);
  15 return 0;       /* not reached */
  16 }