34 lines
790 B
Diff
34 lines
790 B
Diff
From 9acdea766fe924c4a43a627653a6f48bc26dbe95 Mon Sep 17 00:00:00 2001
|
|
From: root <root@localhost.localdomain>
|
|
Date: Mon, 2 Aug 2021 11:35:55 +0800
|
|
Subject: [PATCH] qrupdate-gcc10
|
|
|
|
---
|
|
test/utils.f | 4 ++--
|
|
1 file changed, 2 insertions(+), 2 deletions(-)
|
|
|
|
diff --git a/test/utils.f b/test/utils.f
|
|
index 5cffb51..cdc6941 100644
|
|
--- a/test/utils.f
|
|
+++ b/test/utils.f
|
|
@@ -60,14 +60,14 @@ c
|
|
|
|
subroutine crandg(m,n,x,ldx)
|
|
integer m,n,ldx
|
|
- complex x(ldx,*)
|
|
+ real x(ldx,*)
|
|
external srandg
|
|
call srandg(2*m,n,x,2*ldx)
|
|
end subroutine
|
|
|
|
subroutine zrandg(m,n,x,ldx)
|
|
integer m,n,ldx
|
|
- double complex x(ldx,*)
|
|
+ double precision x(ldx,*)
|
|
external srandg
|
|
call drandg(2*m,n,x,2*ldx)
|
|
end subroutine
|
|
--
|
|
2.23.0
|
|
|