fix build

nakatamaho · nakatamaho · commit dd5d8da79699 · 2026-04-11T20:12:06.000+09:00
diff --git a/TESTING/EIG/serrhs.f b/TESTING/EIG/serrhs.f
@@ -68,6 +68,8 @@ SUBROUTINE SERRHS( PATH, NUNIT )
 *     .. Parameters ..
       INTEGER            NMAX, LW
       PARAMETER          ( NMAX = 3, LW = ( NMAX+2 )*( NMAX+2 )+NMAX )
+      REAL               ONE
+      PARAMETER          ( ONE = 1.0E0 )
 *     ..
 *     .. Local Scalars ..
       CHARACTER*2        C2
