Mercurial > hg > octave-nkf

diff libcruft/misc/f77-fcn.c @ 3809:ec80db02d436

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2001-03-28 14:03:16 by jwe]
author jwe
date Wed, 28 Mar 2001 14:03:17 +0000
parents 885b296ef83a
children 7da18459c08b
line wrap: on
line diff
--- a/libcruft/misc/f77-fcn.c
+++ b/libcruft/misc/f77-fcn.c
@@ -41,12 +41,13 @@
 
    XSTOPX jumps back to the entry point for the Fortran function that
    called us.  Then the calling function should do whatever cleanup
-   is necessary. */
+   is necessary.  */
 
 volatile void
 F77_FCN (xstopx, XSTOPX) (const char *s, long int slen)
 {
-  if (s && slen > 0)
+  /* Skip printing message if it is just a single blank character.  */
+  if (s && slen > 0 && ! (slen == 1 && *s == ' '))
     (*current_liboctave_error_handler) ("%.*s", s, slen);
 
   longjmp (f77_context, 1);