From: Julien Langou Date: Thu, 24 Nov 2016 07:55:09 +0000 (+0100) Subject: print nine-character-long subroutine names (instead of 6-character-long) in TESTING... X-Git-Tag: accepted/tizen/5.0/unified/20181102.024111~97 X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=fd8bd3594465d89a6ef83310c818ae9701196d00;p=platform%2Fupstream%2Flapack.git print nine-character-long subroutine names (instead of 6-character-long) in TESTING/LIN/xerbla.f --- diff --git a/TESTING/LIN/xerbla.f b/TESTING/LIN/xerbla.f index 821d5a5..2038e04 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 ***' ) *