From ea65ff4dc1d871ecdf9861278b38eb69e86a4442 Mon Sep 17 00:00:00 2001
From: David Berry <d.berry@jach.hawaii.edu>
Date: Wed, 27 Aug 2014 09:14:31 +0100
Subject: [PATCH] psx: New error code to indicate illegal characters found by
 wordexp

---
 libraries/psx/psx_err.msg   | 1 +
 libraries/psx/psx_wordexp.c | 1 +
 2 files changed, 2 insertions(+)

diff --git a/libraries/psx/psx_err.msg b/libraries/psx/psx_err.msg
index dba118597a2..d6906a83ff6 100644
--- a/libraries/psx/psx_err.msg
+++ b/libraries/psx/psx_err.msg
@@ -13,4 +13,5 @@ ERRNO   <System error during POSIX call>
 TRUNC   <Truncated string>
 BADIT	<Unknown item of file information requested>
 BDWXP   <Error from word expansion>
+BDCHR   <Illegal characters encountered by word expansion>
 .END
diff --git a/libraries/psx/psx_wordexp.c b/libraries/psx/psx_wordexp.c
index c8f6165ba46..738a412f6b3 100644
--- a/libraries/psx/psx_wordexp.c
+++ b/libraries/psx/psx_wordexp.c
@@ -141,6 +141,7 @@ F77_SUBROUTINE(psx_wordexp)( CHARACTER(WORDS), INTEGER(CONTEXT),
           *STATUS = PSX__BDWXP;
           switch(retval) {
           case WRDE_BADCHAR:
+            *STATUS = PSX__BDCHR;
             psx1_rep_c( "PSX_WORDEXP_ERR3",
                         "The WORDS argument contains illegal unquoted characters",
                         STATUS );