LAPACK  3.5.0
LAPACK: Linear Algebra PACKage
 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