Mercurial > hg > octave-lyh
changeset 1850:a5c3ae990127
[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