File control-gcc-errors.patch of Package octave-forge-control

Index: octave-forge-control/control/src/Makefile
===================================================================
--- octave-forge-control.orig/control/src/Makefile
+++ octave-forge-control/control/src/Makefile
@@ -27,6 +27,7 @@ all: __control_slicot_functions__.oct \
 # the developer makefile makefile_control.m
 slicotlibrary.a: slicot.tar.gz
 	tar -xzf slicot.tar.gz
+	patch -p0 -i slicot-gcc-errors.patch
 	mkdir sltmp
 	mv slicot/src/*.f ./sltmp
 	mv slicot/src_aux/*.f ./sltmp
Index: octave-forge-control/control/src/slicot-gcc-errors.patch
===================================================================
--- /dev/null
+++ octave-forge-control/control/src/slicot-gcc-errors.patch
@@ -0,0 +1,84 @@
+Index: slicot/src/AB13AD.f
+===================================================================
+--- slicot.orig/src/AB13AD.f
++++ slicot/src/AB13AD.f
+@@ -262,6 +262,7 @@ C
+ C
+ C        Error return.
+ C
++         AB13AD = ZERO
+          CALL XERBLA( 'AB13AD', -INFO )
+          RETURN
+       END IF
+Index: slicot/src/AB13AX.f
+===================================================================
+--- slicot.orig/src/AB13AX.f
++++ slicot/src/AB13AX.f
+@@ -195,6 +195,7 @@ C
+ C
+ C        Error return.
+ C
++         AB13AX = ZERO
+          CALL XERBLA( 'AB13AX', -INFO )
+          RETURN
+       END IF
+Index: slicot/src/AB13BD.f
+===================================================================
+--- slicot.orig/src/AB13BD.f
++++ slicot/src/AB13BD.f
+@@ -292,6 +292,7 @@ C
+ C
+ C        Error return.
+ C
++         AB13BD = ZERO
+          CALL XERBLA( 'AB13BD', -INFO )
+          RETURN
+       END IF
+Index: slicot/src/AB13CD.f
+===================================================================
+--- slicot.orig/src/AB13CD.f
++++ slicot/src/AB13CD.f
+@@ -237,6 +237,7 @@ C
+          INFO = -17
+       END IF
+       IF( INFO.NE.0 ) THEN
++         AB13CD = ZERO
+          CALL XERBLA( 'AB13CD', -INFO )
+          RETURN
+       END IF
+Index: slicot/src/AB13DX.f
+===================================================================
+--- slicot.orig/src/AB13DX.f
++++ slicot/src/AB13DX.f
+@@ -324,6 +324,7 @@ C
+       END IF
+ C
+       IF( INFO.NE.0 ) THEN
++         AB13DX = ZERO
+          CALL XERBLA( 'AB13DX', -INFO )
+          RETURN
+       END IF
+Index: slicot/src/MB03ND.f
+===================================================================
+--- slicot.orig/src/MB03ND.f
++++ slicot/src/MB03ND.f
+@@ -182,6 +182,7 @@ C
+ C
+ C        Error return.
+ C
++         MB03ND = ZERO
+          CALL XERBLA( 'MB03ND', -INFO )
+          RETURN
+       END IF
+Index: slicot/src/MB03NY.f
+===================================================================
+--- slicot.orig/src/MB03NY.f
++++ slicot/src/MB03NY.f
+@@ -155,6 +155,7 @@ C
+ C
+ C        Error return.
+ C
++         MB03NY = ZERO
+          CALL XERBLA( 'MB03NY', -INFO )
+          RETURN
+       END IF