6 Program LinearEquations
10 call
SGESV(9, 1,
A, 3, pivot,
b, 3, ok)
14 SUBROUTINE XERBLA(srcname, info)
15 PRINT *,'OVERRIDE SUCCESSFUL'
20 ./a.
out 2>&1 | grep "OVERRIDE SUCCESSFUL"
Description ia64 stest out
debian since it interferes with the way the OPTS variable must be set
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
adapt the repackaging code *Remove recursive patch Replace it by the frecursive flag to gfortran