psx: Include words in the error message if psx_wordexp fails

Starlink · Aug 26, 2014 · a1cc4cb · a1cc4cb
1 parent d4307b0
commit a1cc4cb
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/libraries/psx/psx_wordexp.c b/libraries/psx/psx_wordexp.c
@@ -171,6 +171,9 @@ F77_SUBROUTINE(psx_wordexp)( CHARACTER(WORDS), INTEGER(CONTEXT),
                         "Unrecognized error from wordexp", STATUS );
           }
 
+          psx1_rep_c( "PSX_WORDEXP_ERR3", "Error expanding words within "
+                      "string '%s'", STATUS, words );
+
         }
       }
     }