Mercurial > hg > octave-max

changeset 1850:a5c3ae990127

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-02-03 13:57:39 by jwe]
author jwe
date Sat, 03 Feb 1996 13:57:39 +0000
parents 60aad6fce844
children a032a0a729bd
files libcruft/misc/xstopx.f
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/libcruft/misc/xstopx.f
+++ b/libcruft/misc/xstopx.f
@@ -2,8 +2,8 @@
       character *(*) string
       integer slen
       slen = len (string)
-      if (slen .eq. 0) goto 9999
-      if (slen .eq. 1 .and. string(1:1) .eq. ' ') goto 9999
-      write (*, *) string
- 9999 call dostop ()
+      if (slen .eq. 1 .and. string(1:1) .eq. ' ') then
+        slen = 0
+      endif
+ 9999 call dostop (string, slen)
       end