From b7907197993a58a29a33bb88a51e1912d7f9fc1e Mon Sep 17 00:00:00 2001
From: Dmitry Klyuchinsky <dmitriy_klyuchinskiy@mail.ru>
Date: Fri, 18 Nov 2022 17:58:06 +0700
Subject: [PATCH 4/5] fixed bug in array bounds in complex syl01 test

---
 TESTING/EIG/csyl01.f | 2 +-
 TESTING/EIG/zsyl01.f | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/TESTING/EIG/csyl01.f b/TESTING/EIG/csyl01.f
index e21f1a7a0..82d790daa 100644
--- a/TESTING/EIG/csyl01.f
+++ b/TESTING/EIG/csyl01.f
@@ -124,7 +124,7 @@
      $                   C( MAXM, MAXN ), CC( MAXM, MAXN ),
      $                   X( MAXM, MAXN ),
      $                   DUML( MAXM ), DUMR( MAXN ),
-     $                   D( MIN( MAXM, MAXN ) )
+     $                   D( MAX( MAXM, MAXN ) )
       REAL               SWORK( LDSWORK, 54 ), DUM( MAXN ), VM( 2 )
       INTEGER            ISEED( 4 ), IWORK( MAXM + MAXN + 2 )
 *     ..
diff --git a/TESTING/EIG/zsyl01.f b/TESTING/EIG/zsyl01.f
index 1e8619a34..329f39dc4 100644
--- a/TESTING/EIG/zsyl01.f
+++ b/TESTING/EIG/zsyl01.f
@@ -124,7 +124,7 @@
      $                   C( MAXM, MAXN ), CC( MAXM, MAXN ),
      $                   X( MAXM, MAXN ),
      $                   DUML( MAXM ), DUMR( MAXN ),
-     $                   D( MIN( MAXM, MAXN ) )
+     $                   D( MAX( MAXM, MAXN ) )
       DOUBLE PRECISION   SWORK( LDSWORK, 103 ), DUM( MAXN ), VM( 2 )
       INTEGER            ISEED( 4 ), IWORK( MAXM + MAXN + 2 )
 *     ..