LAPACK Archives

[Lapack] LAPACK3.4.2 bug?

Dear Julie,
There are the following tests in LAPACK3.4.2: ?drvpox.f
$ cat -n zdrvpox.f
......
    533                         IF( INFO.NE.IZERO )
    534         $                  CALL ALAERH( PATH, 'ZPOSVX', INFO, IZERO,
    535         $                               FACT // UPLO, N, N, -1, 
-1, NRHS,
    536         $                               IMAT, NFAIL, NERRS, NOUT )
    537                            GO TO 90
    538    *
    539                         IF( INFO.EQ.0 ) THEN .....

When ( INFO.NE.IZERO ), there should be the corresponding message 
printed, and
then --> goto 90.
We go to 90 any case and never access line 539.


Fix:

    534                   IF( INFO.NE.IZERO ) THEN
    535                      CALL ALAERH( PATH, 'ZPOSVX', INFO, IZERO,
    536         $                               FACT // UPLO, N, N, -1, 
-1, NRHS,
    537         $                               IMAT, NFAIL, NERRS, NOUT )
    538                      GO TO 90
    539                   END IF
    540    *
    541                       IF( INFO.EQ.0 ) THEN .........

The same fix for cdrvpox.f , ddrvpox.f , sdrvpox.f .

Thank you,
Elena Ivanova.


<Prev in Thread] Current Thread [Next in Thread>
  • [Lapack] LAPACK3.4.2 bug?, Elena Ivanova <=


For additional information you may use the LAPACK/ScaLAPACK Forum.
Or one of the mailing lists, or