contrib/libf2c/libF77/abort_.c

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