LAPACK  3.5.0
LAPACK: Linear Algebra PACKage
 All Classes Files Functions Variables Typedefs Macros
xerbla-fortran
Go to the documentation of this file.
1 #!/bin/sh
2 set -ue
3 cd $ADTTMP
4 
5 cat << EOF > tmp.f
6  Program LinearEquations
7  Implicit none
8  Real*4 A(3,3), b(3)
9  integer i, j, pivot(3), ok
10  call SGESV(9, 1, A, 3, pivot, b, 3, ok)
11  end
12 
13 
14  SUBROUTINE XERBLA(srcname, info)
15  PRINT *,'OVERRIDE SUCCESSFUL'
16  RETURN
17  END
18 EOF
19 gfortran tmp.f -llapack
20 ./a.out 2>&1 | grep "OVERRIDE SUCCESSFUL"
21 
Description ia64 stest out
debian since it interferes with the way the OPTS variable must be set
Definition: changelog:375
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real b(3) integer i
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real * A(3, 3)
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real pivot(3)
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real ok call SGESV(9, 1, A, 3, pivot, b, 3, ok) end SUBROUTINE XERBLA(srcname
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real j
Definition: xerbla-fortran:9
adapt the repackaging code *Remove recursive patch Replace it by the frecursive flag to gfortran
Definition: changelog:16