summaryrefslogtreecommitdiff
path: root/libf2c/libF77/s_stop.c
diff options
context:
space:
mode:
authorghazi <ghazi@138bc75d-0d04-0410-961f-82ee72b054a4>2002-06-01 12:38:32 +0000
committerghazi <ghazi@138bc75d-0d04-0410-961f-82ee72b054a4>2002-06-01 12:38:32 +0000
commit0fa1f522915088d7bcbf7c9492fa70dc6cddaa17 (patch)
treec6c7b1fe59f3ddb8b8ccf102855193850daecdfc /libf2c/libF77/s_stop.c
parentbc09eb06ee8c1540503d5314a71617de2151fbf2 (diff)
downloadgcc-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.c27
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 */
}