Imported gcc-4.4.3

[msp430-gcc.git] / libf2c / libF77 / s_stop.c

diff --git a/libf2c/libF77/s_stop.c b/libf2c/libF77/s_stop.c
deleted file mode 100644 (file)
index 975edb7..0000000
--- a/libf2c/libF77/s_stop.c
+++ /dev/null
@@ -1,42 +0,0 @@
-#include <stdio.h>
-#include "f2c.h"
-
-#ifdef KR_headers
-extern void f_exit();
-VOID s_stop(s, n) char *s; ftnlen n;
-#else
-#undef abs
-#undef min
-#undef max
-#include <stdlib.h>
-#ifdef __cplusplus
-extern "C" {
-#endif
-void f_exit(void);
-
-int s_stop(char *s, ftnlen n)
-#endif
-{
-int i;
-
-if(n > 0)
-       {
-       fprintf(stderr, "STOP ");
-       for(i = 0; i<n ; ++i)
-               putc(*s++, stderr);
-       fprintf(stderr, " statement executed\n");
-       }
-#ifdef NO_ONEXIT
-f_exit();
-#endif
-exit(0);
-
-/* We cannot avoid (useless) compiler diagnostics here:                */
-/* some compilers complain if there is no return statement,    */
-/* and others complain that this one cannot be reached.                */
-
-return 0; /* NOT REACHED */
-}
-#ifdef __cplusplus
-}
-#endif