lang/fortran/lib/libF77/s_stop.c

   1 #include "stdio.h"
   2 #include "f2c.h"
   3
   4 VOID s_stop(s, n)
   5 char *s;
   6 long int n;
   7 {
   8 int i;
   9
  10 if(n > 0)
  11         {
  12         fprintf(stderr, "STOP ");
  13         for(i = 0; i<n ; ++i)
  14                 putc(*s++, stderr);
  15         fprintf(stderr, " statement executed\n");
  16         }
  17 f_exit();
  18 exit(0);
  19 }