gcc/f/runtime/libF77/s_stop.c

   1 #include <stdio.h>
   2 #include "f2c.h"
   3
   4 #ifdef KR_headers
   5 extern void f_exit();
   6 VOID s_stop(s, n) char *s; ftnlen n;
   7 #else
   8 #undef abs
   9 #undef min
  10 #undef max
  11 #include <stdlib.h>
  12 #ifdef __cplusplus
  13 extern "C" {
  14 #endif
  15 void f_exit(void);
  16
  17 int s_stop(char *s, ftnlen n)
  18 #endif
  19 {
  20 int i;
  21
  22 if(n > 0)
  23         {
  24         fprintf(stderr, "STOP ");
  25         for(i = 0; i<n ; ++i)
  26                 putc(*s++, stderr);
  27         fprintf(stderr, " statement executed\n");
  28         }
  29 #ifdef NO_ONEXIT
  30 f_exit();
  31 #endif
  32 exit(0);
  33 #ifdef __cplusplus
  34 return 0; /* NOT REACHED */
  35 }
  36 #endif
  37 }