LAPACK
3.5.0
LAPACK: Linear Algebra PACKage
Main Page
Files
File List
File Members
All
Files
Functions
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
debian
tests
xerbla-fortran
Generated on Wed Oct 15 2014 20:02:22 for LAPACK by
1.8.8