diff options
author | Julien Langou <julien.langou@ucdenver.edu> | 2016-11-24 08:55:09 +0100 |
---|---|---|
committer | Julien Langou <julien.langou@ucdenver.edu> | 2016-11-24 08:55:09 +0100 |
commit | fd8bd3594465d89a6ef83310c818ae9701196d00 (patch) | |
tree | bcce811001dda93ab039b513d4413e5526f1d22d | |
parent | fe852bba51e12c561ffa5cbd690b25166a46e4f2 (diff) |
print nine-character-long subroutine names (instead of 6-character-long) in TESTING/LIN/xerbla.f
-rw-r--r-- | TESTING/LIN/xerbla.f | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/TESTING/LIN/xerbla.f b/TESTING/LIN/xerbla.f index 821d5a5b..2038e049 100644 --- a/TESTING/LIN/xerbla.f +++ b/TESTING/LIN/xerbla.f @@ -123,7 +123,7 @@ 9999 FORMAT( ' *** XERBLA was called from ', A, ' with INFO = ', I6, $ ' instead of ', I2, ' ***' ) 9998 FORMAT( ' *** XERBLA was called with SRNAME = ', A, - $ ' instead of ', A6, ' ***' ) + $ ' instead of ', A9, ' ***' ) 9997 FORMAT( ' *** On entry to ', A, ' parameter number ', I6, $ ' had an illegal value ***' ) * |