From 9acdea766fe924c4a43a627653a6f48bc26dbe95 Mon Sep 17 00:00:00 2001 From: root 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