diff options
| author | Sébastien Villemot <sebastien@debian.org> | 2016-01-11 11:15:33 +0100 |
|---|---|---|
| committer | Sébastien Villemot <sebastien@debian.org> | 2016-01-11 11:15:33 +0100 |
| commit | f704b8d32f4cec59fab550f8dbf7e57ab0fd6865 (patch) | |
| tree | 272e2b25c8a8baaa53f5bbbd7a73bb4d01b26d02 /ctest | |
| parent | c6a27bbe64f7c88a5a2bc48b54e152f52dc9eec3 (diff) | |
| download | openblas-f704b8d32f4cec59fab550f8dbf7e57ab0fd6865.tar.gz openblas-f704b8d32f4cec59fab550f8dbf7e57ab0fd6865.tar.bz2 openblas-f704b8d32f4cec59fab550f8dbf7e57ab0fd6865.zip | |
Fix CBLAS double complex level 2 tests
The SNAME variable contains names of C functions like "cblas_dgemv".
Apparently the code was not taking into account the 6-letter "cblas_"
prefix when determining the task to be done.
The issue does not affect c_{s,d,c}blat2.f, which use the correct
offsetting.
Patch originally written by Camm Maguire.
Diffstat (limited to 'ctest')
| -rw-r--r-- | ctest/c_zblat2.f | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/ctest/c_zblat2.f b/ctest/c_zblat2.f index 5a7d83ff4..439260230 100644 --- a/ctest/c_zblat2.f +++ b/ctest/c_zblat2.f @@ -1350,7 +1350,7 @@ * * Call the subroutine. * - IF( SNAME( 4: 5 ).EQ.'mv' )THEN + IF( SNAME( 10: 11 ).EQ.'mv' )THEN IF( FULL )THEN IF( TRACE ) $ WRITE( NTRA, FMT = 9993 )NC, SNAME, @@ -1376,7 +1376,7 @@ CALL CZTPMV( IORDER, UPLO, TRANS, DIAG, $ N, AA, XX, INCX ) END IF - ELSE IF( SNAME( 4: 5 ).EQ.'sv' )THEN + ELSE IF( SNAME( 10: 11 ).EQ.'sv' )THEN IF( FULL )THEN IF( TRACE ) $ WRITE( NTRA, FMT = 9993 )NC, SNAME, @@ -1465,7 +1465,7 @@ END IF * IF( .NOT.NULL )THEN - IF( SNAME( 4: 5 ).EQ.'mv' )THEN + IF( SNAME( 10: 11 ).EQ.'mv' )THEN * * Check the result. * @@ -1473,7 +1473,7 @@ $ INCX, ZERO, Z, INCX, XT, G, $ XX, EPS, ERR, FATAL, NOUT, $ .TRUE. ) - ELSE IF( SNAME( 4: 5 ).EQ.'sv' )THEN + ELSE IF( SNAME( 10: 11 ).EQ.'sv' )THEN * * Compute approximation to original vector. * @@ -1611,7 +1611,7 @@ * .. Common blocks .. COMMON /INFOC/INFOT, NOUTC, OK * .. Executable Statements .. - CONJ = SNAME( 5: 5 ).EQ.'c' + CONJ = SNAME( 11: 11 ).EQ.'c' * Define the number of arguments. NARGS = 9 * |