diff options
author | ghazi <ghazi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2002-06-01 12:38:32 +0000 |
---|---|---|
committer | ghazi <ghazi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2002-06-01 12:38:32 +0000 |
commit | 0fa1f522915088d7bcbf7c9492fa70dc6cddaa17 (patch) | |
tree | c6c7b1fe59f3ddb8b8ccf102855193850daecdfc /libf2c/libF77/s_stop.c | |
parent | bc09eb06ee8c1540503d5314a71617de2151fbf2 (diff) | |
download | gcc-0fa1f522915088d7bcbf7c9492fa70dc6cddaa17.tar.gz |
* libF77/*: Fix formatting.
* libI77/*: Likewise.
* libU77/*: Likewise.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@54145 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libf2c/libF77/s_stop.c')
-rw-r--r-- | libf2c/libF77/s_stop.c | 27 |
1 files changed, 14 insertions, 13 deletions
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 <stdlib.h> -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<n ; ++i) - putc(*s++, stderr); - fprintf(stderr, " statement executed\n"); - } + 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(); + 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 */ } |