From f5103fc3b42fcff40e70b1fa4b5567df01dae9bc Mon Sep 17 00:00:00 2001
From: Wouter Deconinck <wdconinc@gmail.com>
Date: Fri, 10 Jan 2025 14:32:30 -0600
Subject: [PATCH] ?ge(lq|qr)s.f: WORK( LWORK ) -> WORK( * )

(fixes with newer GCC)

Index: SRC/DEPRECATED/sgelqs.f
--- SRC/DEPRECATED/sgelqs.f.orig
+++ SRC/DEPRECATED/sgelqs.f
@@ -16,7 +16,7 @@
 *       ..
 *       .. Array Arguments ..
 *       REAL               A( LDA, * ), B( LDB, * ), TAU( * ),
-*      $                   WORK( LWORK )
+*      $                   WORK( * )
 *       ..
 *
 *
@@ -128,7 +128,7 @@
 *     ..
 *     .. Array Arguments ..
       REAL               A( LDA, * ), B( LDB, * ), TAU( * ),
-     $                   WORK( LWORK )
+     $                   WORK( * )
 *     ..
 *
 *  =====================================================================
