From 0fa1f522915088d7bcbf7c9492fa70dc6cddaa17 Mon Sep 17 00:00:00 2001 From: ghazi Date: Sat, 1 Jun 2002 12:38:32 +0000 Subject: * libF77/*: Fix formatting. * libI77/*: Likewise. * libU77/*: Likewise. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@54145 138bc75d-0d04-0410-961f-82ee72b054a4 --- libf2c/libF77/s_stop.c | 27 ++++++++++++++------------- 1 file changed, 14 insertions(+), 13 deletions(-) (limited to 'libf2c/libF77/s_stop.c') diff --git a/libf2c/libF77/s_stop.c b/libf2c/libF77/s_stop.c index 391148f6c72..571416be7bb 100644 --- a/libf2c/libF77/s_stop.c +++ b/libf2c/libF77/s_stop.c @@ -5,27 +5,28 @@ #undef min #undef max #include -void f_exit(void); +void f_exit (void); -int s_stop(char *s, ftnlen n) +int +s_stop (char *s, ftnlen n) { -int i; + int i; -if(n > 0) - { - fprintf(stderr, "STOP "); - for(i = 0; i 0) + { + fprintf (stderr, "STOP "); + for (i = 0; i < n; ++i) + putc (*s++, stderr); + fprintf (stderr, " statement executed\n"); + } #ifdef NO_ONEXIT -f_exit(); + f_exit (); #endif -exit(0); + 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 */ + return 0; /* NOT REACHED */ } -- cgit v1.2.1